emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-contrib bd6ba8a214: * lisp/org-bibtex-extras.el: Fix o


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib bd6ba8a214: * lisp/org-bibtex-extras.el: Fix obsolete function names
Date: Wed, 20 Sep 2023 07:00:24 -0400 (EDT)

branch: elpa/org-contrib
commit bd6ba8a214577a10573944e5cf167318f37f327f
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@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)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]