diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-17 09:15:20 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-17 09:15:20 +0100 |
| commit | 9ac8901b0ae5a6bb75c790832caf4ea9be8df16f (patch) | |
| tree | da099836ae08e7a2a7b3ea4da10d50c4791ae069 | |
| parent | 32d1c1fc1f8d33df80c99cd147160b85583271f6 (diff) | |
| download | emacs-9ac8901b0ae5a6bb75c790832caf4ea9be8df16f.tar.gz | |
Make bibtex-parse-keys more robust
* lisp/textmodes/bibtex.el (bibtex-parse-keys): Protect against
bugging out just when starting almost-empty bibtex files
(bug#30112).
| -rw-r--r-- | lisp/textmodes/bibtex.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index c29e9631801..2d24178f1a7 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -2915,6 +2915,9 @@ for parsing BibTeX keys. If parsing fails, try to set this variable to nil." (1+ (match-beginning 3)) (1- (match-end 3))))) (unless (assoc key crossref-keys) (push (list key) crossref-keys)))) + ;; We have probably have a non-bibtex file. + ((not (match-beginning bibtex-type-in-head)) + (throw 'userkey nil)) ;; only keys of known entries ((assoc-string (bibtex-type-in-head) bibtex-entry-alist t) |