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

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

[elpa] externals/org cc3b468 1/3: org-element-cache: Use 'org-element-ca


From: ELPA Syncer
Subject: [elpa] externals/org cc3b468 1/3: org-element-cache: Use 'org-element-cache warning type
Date: Wed, 24 Nov 2021 07:57:27 -0500 (EST)

branch: externals/org
commit cc3b46865745634305c3b21a873544752a045258
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-element-cache: Use 'org-element-cache warning type
    
    * lisp/org-element.el (org-element--cache-log-message):
    (org-element--cache-warn): Use special 'org-element-cache warning
    type to display warnings.
---
 lisp/org-element.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index b47fba9..1cee776 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5461,7 +5461,7 @@ better to remove the commands adviced in such way from 
this list.")
                                    ,format-string))
             (format-string (funcall #'format format-string ,@args)))
        (if org-element--cache-diagnostics
-           (warn "%s" format-string)
+           (display-warning 'org-element-cache format-string)
          (unless org-element--cache-diagnostics-ring
            (setq org-element--cache-diagnostics-ring
                  (make-ring org-element--cache-diagnostics-ring-size)))
@@ -5485,7 +5485,8 @@ better to remove the commands adviced in such way from 
this list.")
                (setq org-element--cache-diagnostics-ring nil)))))
      (if (and (boundp 'org-batch-test) org-batch-test)
          (error "%s" (concat "org-element--cache: " format-string))
-       (warn "%s" (concat "org-element--cache: " format-string)))))
+       (display-warning 'org-element-cache
+                        (concat "org-element--cache: " format-string)))))
 
 (defsubst org-element--cache-key (element)
   "Return a unique key for ELEMENT in cache tree.



reply via email to

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