ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

* 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) (get-text-property (or (next-single-property-change 0 prop s) 0)
prop s))) prop s)))
(defun org-display-warning (message) ;; Copied from Emacs-Muse (defun org-display-warning (message)
"Display the given MESSAGE as a warning." "Display the given MESSAGE as a warning."
(if (fboundp 'display-warning) (display-warning 'org message :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))))
(defun org-eval (form) (defun org-eval (form)
"Eval FORM and return result." "Eval FORM and return result."