# HG changeset patch # User Roland Winkler # Date 1135876253 0 # Node ID 823f54b91fe2e10fe6aed0d0e3b8b2c4ecd73ed2 # Parent 059f4eadf08767bf101ab2f1e750f8831a534554 (bibtex-text-in-field-bounds): Handle case that assoc-string returns nil. diff -r 059f4eadf087 -r 823f54b91fe2 lisp/textmodes/bibtex.el --- a/lisp/textmodes/bibtex.el Thu Dec 29 17:08:04 2005 +0000 +++ b/lisp/textmodes/bibtex.el Thu Dec 29 17:10:53 2005 +0000 @@ -1415,9 +1415,9 @@ (while (< (setq opoint (point)) epoint) (if (looking-at bibtex-field-const) (let ((mtch (match-string-no-properties 0))) - (push (if bibtex-expand-strings - (cdr (assoc-string mtch (bibtex-strings) t)) - mtch) content) + (push (or (if bibtex-expand-strings + (cdr (assoc-string mtch (bibtex-strings) t))) + mtch) content) (goto-char (match-end 0))) (let ((bounds (bibtex-parse-field-string))) (push (buffer-substring-no-properties