From 7772ba6e69efba934914d033b8814ebf57a7cdbd Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Mon, 26 Sep 2016 15:27:28 +0100 Subject: [PATCH] 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 --- lisp/org.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 69e18adcd..810d35c7f 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."