[Emacs-diffs] /srv/bzr/emacs/trunk r112263: * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut

[Tassilo Horn]

------------------------------------------------------------
revno: 112263
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Wed 2013-04-10 16:48:44 +0200
message:
  * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
  off leading { and trailing } from field values.
modified:
  lisp/ChangeLog
  lisp/textmodes/reftex-cite.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-10 13:31:35 +0000
+++ b/lisp/ChangeLog    2013-04-10 14:48:44 +0000
@@ -1,3 +1,8 @@
+2013-04-10  Tassilo Horn  <address@hidden>
+
+       * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
+       off leading { and trailing } from field values.
+
 2013-04-10  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/timer.el (timer--check): New function.

=== modified file 'lisp/textmodes/reftex-cite.el'
--- a/lisp/textmodes/reftex-cite.el     2013-01-21 12:14:56 +0000
+++ b/lisp/textmodes/reftex-cite.el     2013-04-10 14:48:44 +0000
@@ -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))