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

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

[nongnu] elpa/org-contrib 246b9040b1: lisp/ox-freemind.el: Update obsole


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib 246b9040b1: lisp/ox-freemind.el: Update obsolete macro names
Date: Wed, 6 Dec 2023 10:00:53 -0500 (EST)

branch: elpa/org-contrib
commit 246b9040b1c8aa36386a6825d061dc0349394cbd
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/ox-freemind.el: Update obsolete macro names
    
    * lisp/ox-freemind.el (org-freemind--serialize):
    (org-freemind-style-map--automatic):
    (org-freemind--richcontent):
    (org-freemind--build-node-contents): Use `cl-assert' and `cl-case'
    instead of obsolete `assert' and `case'.
---
 lisp/ox-freemind.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/ox-freemind.el b/lisp/ox-freemind.el
index 21ce73167b..c4816b625a 100644
--- a/lisp/ox-freemind.el
+++ b/lisp/ox-freemind.el
@@ -144,7 +144,7 @@ This is an inverse function of `libxml-parse-xml-region'.
 For purposes of Freemind export, PARSED-XML is a node style
 specification - \"<node ...>...</node>\" - as a parse tree."
   (when contents
-    (assert (symbolp (car parsed-xml))))
+    (cl-assert (symbolp (car parsed-xml))))
   (cond
    ((null parsed-xml) "")
    ((stringp parsed-xml) parsed-xml)
@@ -182,7 +182,7 @@ ELEMENT can be any of the following types - `org-data',
 `headline' or `section'.  See `org-freemind-styles' for style
 mappings of different outline levels."
   (let ((style-name
-        (case (org-element-type element)
+        (cl-case (org-element-type element)
           (headline
            (org-export-get-relative-level element info))
           (section
@@ -293,7 +293,7 @@ will result in following node:
 ;;;; Helpers :: Node contents
 
 (defun org-freemind--richcontent (type contents &optional css-style)
-  (let* ((type (case type
+  (let* ((type (cl-case type
                 (note "NOTE")
                 (node "NODE")
                 (t "NODE")))
@@ -306,7 +306,7 @@ will result in following node:
                      (format "<body>\n%s\n</body>" contents))))))
 
 (defun org-freemind--build-node-contents (element contents info)
-  (let* ((title (case (org-element-type element)
+  (let* ((title (cl-case (org-element-type element)
                  (headline
                   (org-element-property :title element))
                  (org-data
@@ -330,7 +330,7 @@ will result in following node:
                                (when itemized-contents-p
                                  contents))))
     (concat (let ((title (org-export-data title info)))
-             (case org-freemind-section-format
+             (cl-case org-freemind-section-format
                (inline
                  (org-freemind--richcontent
                   'node (concat (format "\n<h2>%s</h2>" title)



reply via email to

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