[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.