diff options
| author | Roland Winkler | 2005-12-29 17:10:53 +0000 |
|---|---|---|
| committer | Roland Winkler | 2005-12-29 17:10:53 +0000 |
| commit | e8606202de5c495fd51c03cd5f1fac4a588146b5 (patch) | |
| tree | e882565299d32d753a19e5ab4b906c6a28715f7e | |
| parent | 694ed36d352dbcfd66ea44ab33e391fcc9b262c4 (diff) | |
| download | emacs-e8606202de5c495fd51c03cd5f1fac4a588146b5.tar.gz emacs-e8606202de5c495fd51c03cd5f1fac4a588146b5.zip | |
(bibtex-text-in-field-bounds): Handle case that assoc-string returns
nil.
| -rw-r--r-- | lisp/textmodes/bibtex.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index a98fc2ddee1..fd84d749b86 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el | |||
| @@ -1415,9 +1415,9 @@ If `bibtex-expand-strings' is non-nil, also expand BibTeX strings." | |||
| 1415 | (while (< (setq opoint (point)) epoint) | 1415 | (while (< (setq opoint (point)) epoint) |
| 1416 | (if (looking-at bibtex-field-const) | 1416 | (if (looking-at bibtex-field-const) |
| 1417 | (let ((mtch (match-string-no-properties 0))) | 1417 | (let ((mtch (match-string-no-properties 0))) |
| 1418 | (push (if bibtex-expand-strings | 1418 | (push (or (if bibtex-expand-strings |
| 1419 | (cdr (assoc-string mtch (bibtex-strings) t)) | 1419 | (cdr (assoc-string mtch (bibtex-strings) t))) |
| 1420 | mtch) content) | 1420 | mtch) content) |
| 1421 | (goto-char (match-end 0))) | 1421 | (goto-char (match-end 0))) |
| 1422 | (let ((bounds (bibtex-parse-field-string))) | 1422 | (let ((bounds (bibtex-parse-field-string))) |
| 1423 | (push (buffer-substring-no-properties | 1423 | (push (buffer-substring-no-properties |