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 dbebf3147980e65d873343ac2da8953887d308d6..d04550c187d4c082d0654a88455710f2d927bd74 100644 (file)
--- 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