diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-07-25 10:13:50 -0600 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-07-25 10:13:50 -0600 |
commit | 0327b5a3c139cbbdde0894cb15ca8c044f50d635 (patch) | |
tree | 002c326c39c3e38cf7e140af872bda693323ab39 | |
parent | ce3aa4ab2b4abbbca7870235f4f898ea9c4e590c (diff) | |
download | org-mode-0327b5a3c139cbbdde0894cb15ca8c044f50d635.tar.gz |
org-bibtex: org-flet w/recursion -> org-labels
* lisp/org-bibtex.el (org-bibtex-headline): Replacing org-flet with
org-labels.
-rw-r--r-- | lisp/org-bibtex.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index b6f7d7e..5e1665e 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -309,14 +309,15 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t." (defun org-bibtex-headline () "Return a bibtex entry of the given headline as a string." - (org-flet ((val (key lst) (cdr (assoc key lst))) - (to (string) (intern (concat ":" string))) - (from (key) (substring (symbol-name key) 1)) - (flatten (&rest lsts) - (apply #'append (mapcar - (lambda (e) - (if (listp e) (apply #'flatten e) (list e))) - lsts)))) + (org-labels + ((val (key lst) (cdr (assoc key lst))) + (to (string) (intern (concat ":" string))) + (from (key) (substring (symbol-name key) 1)) + (flatten (&rest lsts) + (apply #'append (mapcar + (lambda (e) + (if (listp e) (apply #'flatten e) (list e))) + lsts)))) (let ((notes (buffer-string)) (id (org-bibtex-get org-bibtex-key-property)) (type (org-bibtex-get org-bibtex-type-property-name)) |