From: Roland Winkler <winkler@gnu.org>
Date: Mon, 13 Jan 2025 00:43:16 +0000 (-0600)
Subject: fix for bibtex.el in prior commit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c498b6a8613c726005cd954c63807f8522d9c441;p=emacs.git

fix for bibtex.el in prior commit

* lisp/textmodes/bibtex.el (bibtex-string-file-path)
(bibtex-file-path): Check for undefined environment variable
BIBINPUTS.

(cherry picked from commit 615f06ea534cd565f439b08d563a31ca2b0eea92)
---

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 83d8f2e6e70..a337c7167ca 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1095,7 +1095,9 @@ to the directories specified in `bibtex-string-file-path'."
   :group 'bibtex
   :type '(repeat file))
 
-(defcustom bibtex-string-file-path (split-string (getenv "BIBINPUTS") ":+" t)
+(defcustom bibtex-string-file-path
+  (let ((bibinputs (getenv "BIBINPUTS")))
+    (if bibinputs (split-string bibinputs ":+" t)))
   "List of directories to search for `bibtex-string-files'.
 By default, initialized from the BIBINPUTS environment variable.
 For backward compatibility, considered obsolete, it may also be
@@ -1117,7 +1119,9 @@ See also `bibtex-search-entry-globally'."
   :type '(repeat (choice (const :tag "bibtex-file-path" bibtex-file-path)
                          directory file)))
 
-(defcustom bibtex-file-path (split-string (getenv "BIBINPUTS") ":+" t)
+(defcustom bibtex-file-path
+  (let ((bibinputs (getenv "BIBINPUTS")))
+    (if bibinputs (split-string bibinputs ":+" t)))
   "List of directories to search for `bibtex-files'.
 By default, initialized from the BIBINPUTS environment variable.
 For backward compatibility, considered obsolete, it may also be