diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-04-10 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2013-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 | ||