tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org.el: assume `display-warning' is defined

Browse source 
* lisp/org.el (org-display-warning): Assume `display-warning' is
defined.

It is present in emacs since at least 2002
This commit is contained in:
Aaron Ecay 2016-09-26 15:27:28 +01:00
parent 092acf7e67
commit 7772ba6e69
1 changed files with 2 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -21958,18 +21958,9 @@ With prefix arg UNCOMPILED, load the uncompiled versions."
(get-text-property (or (next-single-property-change 0 prop s) 0)
prop s)))
(defun org-display-warning (message) ;; Copied from Emacs-Muse
(defun org-display-warning (message)
"Display the given MESSAGE as a warning."
(if (fboundp 'display-warning)
(display-warning 'org message :warning)
(let ((buf (get-buffer-create "*Org warnings*")))
(with-current-buffer buf
(goto-char (point-max))
(insert "Warning (Org): " message)
(unless (bolp)
(newline)))
(display-buffer buf)
(sit-for 0))))
(display-warning 'org message :warning))
(defun org-eval (form)
"Eval FORM and return result."