summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-07-25 10:13:50 -0600
committerEric Schulte <eric.schulte@gmx.com>2012-07-25 10:13:50 -0600
commit0327b5a3c139cbbdde0894cb15ca8c044f50d635 (patch)
tree002c326c39c3e38cf7e140af872bda693323ab39
parentce3aa4ab2b4abbbca7870235f4f898ea9c4e590c (diff)
downloadorg-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.el17
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))