From: Tassilo Horn <tsdh@gnu.org>
Date: Wed, 10 Apr 2013 14:48:44 +0000 (+0200)
Subject: * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da3cda2d10f5cbe398ea570e752a9921df7e18d8;p=emacs.git

* 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 a50f3bc8f15..c7ac52fac32 100644
--- 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 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))