diff options
| author | Tassilo Horn | 2013-04-10 16:48:44 +0200 |
|---|---|---|
| committer | Tassilo Horn | 2013-04-10 16:48:44 +0200 |
| commit | da3cda2d10f5cbe398ea570e752a9921df7e18d8 (patch) | |
| tree | 5b2a5e485d79181f37accada0a50b61511be4d3e | |
| parent | 78ce603d02dd6f2492fb0178bb148d3d76e4312b (diff) | |
| download | emacs-da3cda2d10f5cbe398ea570e752a9921df7e18d8.tar.gz emacs-da3cda2d10f5cbe398ea570e752a9921df7e18d8.zip | |
* textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut
off leading { and trailing } from field values.
| -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 | ||