diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-20 22:59:55 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-20 22:59:55 +0200 |
commit | 466d044a9b4188e2431e92de4c2341b8f2155dcf (patch) | |
tree | e450590915ed2dcf1de18536f6f21ef1fcdc9dc2 | |
parent | 7dd0d7a567719b43ab16fcb5be464a7aea01f35b (diff) | |
download | org-mode-466d044a9b4188e2431e92de4c2341b8f2155dcf.tar.gz |
org-bibtex: Fix curly braces removal
* lisp/org-bibtex.el (org-bibtex-read): Only remove one level of curly
braces when parsing an entry.
Reported-by: timor <timor.dd@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/106495>
-rw-r--r-- | lisp/org-bibtex.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index 2500d8c..a346056 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -630,7 +630,7 @@ This uses `bibtex-parse-entry'." "[[:space:]\n\r]+" " " str))) (strip-delim (lambda (str) ; strip enclosing "..." and {...} - (dolist (pair '((34 . 34) (123 . 125) (123 . 125))) + (dolist (pair '((34 . 34) (123 . 125))) (when (and (> (length str) 1) (= (aref str 0) (car pair)) (= (aref str (1- (length str))) (cdr pair))) |