branch: elpa/org-contrib
commit bd6ba8a214577a10573944e5cf167318f37f327f
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
* lisp/org-bibtex-extras.el: Fix obsolete function names
(obe-meta-to-json): Use `cl-flet', `cl-position', and
`cl-remove-duplicates' instead of obsolete `flet', `position', and
`remove-duplicates'.
---
lisp/org-bibtex-extras.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/org-bibtex-extras.el b/lisp/org-bibtex-extras.el
index c7a2e82d74..8111903972 100644
--- a/lisp/org-bibtex-extras.el
+++ b/lisp/org-bibtex-extras.el
@@ -107,18 +107,18 @@ For example, to point to your `obe-bibtex-file' use the
following.
(defun obe-meta-to-json (meta &optional fields)
"Turn a list of META data from citations into a string of json."
(let ((counter 1) nodes links)
- (flet ((id (it) (position it nodes :test #'string= :key #'car))
- (col (k) (mapcar (lambda (r) (cdr (assoc k r))) meta))
- (add (lst)
+ (cl-flet ((id (it) (cl-position it nodes :test #'string= :key #'car))
+ (col (k) (mapcar (lambda (r) (cdr (assoc k r))) meta))
+ (add (lst)
(dolist (el lst) (push (cons el counter) nodes))
(cl-incf counter)))
;; build the nodes of the graph
(add (col :title))
(add (cl-remove-if (lambda (author) (string-match "others" author))
- (remove-duplicates (apply #'append (col :authors))
- :test #'string=)))
+ (cl-remove-duplicates (apply #'append (col :authors))
+ :test #'string=)))
(dolist (field fields)
- (add (remove-duplicates (col field) :test #'string=)))
+ (add (cl-remove-duplicates (col field) :test #'string=)))
;; build the links in the graph
(dolist (citation meta)
(let ((dest (id (cdr (assq :title citation)))))
