* textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut

off leading { and trailing } from field values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a50f3bc8f15f9475360eb4edaa0d11a6d87bca4d..c7ac52fac32921d3d5b53c05976ba93cd3484e26 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-10  Tassilo Horn  <tsdh@gnu.org>
+
+       * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
+       off leading { and trailing } from field values.
+
 2013-04-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/timer.el (timer--check): New function.

diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index 079101b56ee9b1eb2bfa16962eb4d2edc161d0c4..ca29709de2e2ab01f024cb94c54dd27f240dd0bc 100644 (file)
--- 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))