# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1188964042 0
# Node ID 0fc42eec71c0a3dc43a28e34d9ff420b196a84c5
# Parent  9ed352eb80b41f83fc580a8f1678314e40f5c65c
Johan Bockg?  <bojohan at dd.chalmers.se>

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

diff -r 9ed352eb80b4 -r 0fc42eec71c0 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Wed Sep 05 03:22:50 2007 +0000
+++ b/lisp/emacs-lisp/advice.el	Wed Sep 05 03:47:22 2007 +0000
@@ -2996,7 +2996,9 @@
     (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