From: Glenn Morris <rgm@gnu.org>
Date: Wed, 5 Sep 2007 03:47:22 +0000 (+0000)
Subject: Johan Bockg�  <bojohan at dd.chalmers.se>
X-Git-Tag: emacs-pretest-23.0.90~11106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=feb47a092cce60fbdb6f591ddab2ec09729e6511;p=emacs.git

Johan Bockg�  <bojohan at dd.chalmers.se>

(ad-make-advised-docstring): Highlight note in doc string.
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index dbebf314798..d04550c187d 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2996,7 +2996,9 @@ in any of these classes."
     (setq usage (if (null usage) t (setq origdoc (cdr usage)) (car usage)))
     (if origdoc (setq paragraphs (list origdoc)))
     (unless (eq style 'plain)
-      (push (concat "This " origtype " is advised.") paragraphs))
+      (push (propertize (concat "This " origtype " is advised.")
+			'face 'font-lock-warning-face)
+	    paragraphs))
     (ad-dolist (class ad-advice-classes)
       (ad-dolist (advice (ad-get-enabled-advices function class))
 	(setq advice-docstring