diff options
| author | Aaron Ecay <aaronecay@gmail.com> | 2016-09-26 15:27:28 +0100 |
|---|---|---|
| committer | Aaron Ecay <aaronecay@gmail.com> | 2016-09-26 16:56:19 +0100 |
| commit | 7772ba6e69efba934914d033b8814ebf57a7cdbd (patch) | |
| tree | c18318c1ff3954b0f2592a6c559d63d799864e1d | |
| parent | 092acf7e679114da0b5e8c73e74c902665d419d4 (diff) | |
| download | org-mode-7772ba6e69efba934914d033b8814ebf57a7cdbd.tar.gz | |
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
| -rw-r--r-- | lisp/org.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/org.el b/lisp/org.el index 69e18ad..810d35c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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." |