comparison lisp/textmodes/bibtex.el @ 67897:823f54b91fe2

(bibtex-text-in-field-bounds): Handle case that assoc-string returns nil.

67896:059f4eadf087

        (let ((epoint (bibtex-end-of-text-in-field bounds))
              content opoint)
          (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)
                  (goto-char (match-end 0)))
              (let ((bounds (bibtex-parse-field-string)))
                (push (buffer-substring-no-properties
                       (1+ (car bounds)) (1- (cdr bounds))) content)
                (goto-char (cdr bounds))))

67897:823f54b91fe2

        (let ((epoint (bibtex-end-of-text-in-field bounds))
              content opoint)
          (while (< (setq opoint (point)) epoint)
            (if (looking-at bibtex-field-const)
                (let ((mtch (match-string-no-properties 0)))
                  (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
                       (1+ (car bounds)) (1- (cdr bounds))) content)
                (goto-char (cdr bounds))))