diff options
| author | Roland Winkler | 2025-01-12 18:43:16 -0600 |
|---|---|---|
| committer | Roland Winkler | 2025-01-12 18:43:16 -0600 |
| commit | 615f06ea534cd565f439b08d563a31ca2b0eea92 (patch) | |
| tree | 666ff2ad95dd4b12bc4651dce2bd506025e02181 | |
| parent | ccd927d741df928d4de578dffac74bc67d24c8b0 (diff) | |
| download | emacs-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.el | 8 |
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'. |
| 1100 | By default, initialized from the BIBINPUTS environment variable. | 1102 | By default, initialized from the BIBINPUTS environment variable. |
| 1101 | For backward compatibility, considered obsolete, it may also be | 1103 | For 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'. |
| 1122 | By default, initialized from the BIBINPUTS environment variable. | 1126 | By default, initialized from the BIBINPUTS environment variable. |
| 1123 | For backward compatibility, considered obsolete, it may also be | 1127 | For backward compatibility, considered obsolete, it may also be |