aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/reftex-cite.el6
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 @@
12013-04-10 Tassilo Horn <tsdh@gnu.org>
2
3 * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
4 off leading { and trailing } from field values.
5
12013-04-10 Stefan Monnier <monnier@iro.umontreal.ca> 62013-04-10 Stefan Monnier <monnier@iro.umontreal.ca>
2 7
3 * emacs-lisp/timer.el (timer--check): New function. 8 * 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 @@
514 ;; remove extra whitespace 514 ;; remove extra whitespace
515 (while (string-match "[\n\t\r]\\|[ \t][ \t]+" field) 515 (while (string-match "[\n\t\r]\\|[ \t][ \t]+" field)
516 (setq field (replace-match " " nil t field))) 516 (setq field (replace-match " " nil t field)))
517 ;; remove leading garbage
518 (if (string-match (if raw "^[ \t]+" "^[ \t{]+") field)
519 (setq field (replace-match "" nil t field)))
520 ;; remove trailing garbage
521 (if (string-match (if raw "[ \t]+$" "[ \t}]+$") field)
522 (setq field (replace-match "" nil t field)))
523 (push (cons key field) alist)))) 517 (push (cons key field) alist))))
524 alist)) 518 alist))
525 519