aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRoland Winkler2025-01-12 18:43:16 -0600
committerRoland Winkler2025-01-12 18:43:16 -0600
commit615f06ea534cd565f439b08d563a31ca2b0eea92 (patch)
tree666ff2ad95dd4b12bc4651dce2bd506025e02181
parentccd927d741df928d4de578dffac74bc67d24c8b0 (diff)
downloademacs-615f06ea534cd565f439b08d563a31ca2b0eea92.tar.gz
emacs-615f06ea534cd565f439b08d563a31ca2b0eea92.zip
fix for bibtex.el in prior commit
* lisp/textmodes/bibtex.el (bibtex-string-file-path) (bibtex-file-path): Check for undefined environment variable BIBINPUTS.
-rw-r--r--lisp/textmodes/bibtex.el8
1 files changed, 6 insertions, 2 deletions
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'."
1095 :group 'bibtex 1095 :group 'bibtex
1096 :type '(repeat file)) 1096 :type '(repeat file))
1097 1097
1098(defcustom bibtex-string-file-path (split-string (getenv "BIBINPUTS") ":+" t) 1098(defcustom bibtex-string-file-path
1099 (let ((bibinputs (getenv "BIBINPUTS")))
1100 (if bibinputs (split-string bibinputs ":+" t)))
1099 "List of directories to search for `bibtex-string-files'. 1101 "List of directories to search for `bibtex-string-files'.
1100By default, initialized from the BIBINPUTS environment variable. 1102By default, initialized from the BIBINPUTS environment variable.
1101For backward compatibility, considered obsolete, it may also be 1103For backward compatibility, considered obsolete, it may also be
@@ -1117,7 +1119,9 @@ See also `bibtex-search-entry-globally'."
1117 :type '(repeat (choice (const :tag "bibtex-file-path" bibtex-file-path) 1119 :type '(repeat (choice (const :tag "bibtex-file-path" bibtex-file-path)
1118 directory file))) 1120 directory file)))
1119 1121
1120(defcustom bibtex-file-path (split-string (getenv "BIBINPUTS") ":+" t) 1122(defcustom bibtex-file-path
1123 (let ((bibinputs (getenv "BIBINPUTS")))
1124 (if bibinputs (split-string bibinputs ":+" t)))
1121 "List of directories to search for `bibtex-files'. 1125 "List of directories to search for `bibtex-files'.
1122By default, initialized from the BIBINPUTS environment variable. 1126By default, initialized from the BIBINPUTS environment variable.
1123For backward compatibility, considered obsolete, it may also be 1127For backward compatibility, considered obsolete, it may also be