Mercurial > emacs

changeset 83896:0fc42eec71c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Johan Bockg? <bojohan at dd.chalmers.se> (ad-make-advised-docstring): Highlight note in doc string.
author Glenn Morris <rgm@gnu.org>
date Wed, 05 Sep 2007 03:47:22 +0000
parents 9ed352eb80b4
children 0433e66465f6
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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