From da3cda2d10f5cbe398ea570e752a9921df7e18d8 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Wed, 10 Apr 2013 16:48:44 +0200 Subject: [PATCH] * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut off leading { and trailing } from field values. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/reftex-cite.el | 6 ------ 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a50f3bc8f15..c7ac52fac32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-10 Tassilo Horn + + * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut + off leading { and trailing } from field values. + 2013-04-10 Stefan Monnier * emacs-lisp/timer.el (timer--check): New function. diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index 079101b56ee..ca29709de2e 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -514,12 +514,6 @@ ;; remove extra whitespace (while (string-match "[\n\t\r]\\|[ \t][ \t]+" field) (setq field (replace-match " " nil t field))) - ;; remove leading garbage - (if (string-match (if raw "^[ \t]+" "^[ \t{]+") field) - (setq field (replace-match "" nil t field))) - ;; remove trailing garbage - (if (string-match (if raw "[ \t]+$" "[ \t}]+$") field) - (setq field (replace-match "" nil t field))) (push (cons key field) alist)))) alist)) -- 2.39.2