procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(ad-make-advised-docstring): Highlight note in doc string.
This commit is contained in:
Glenn Morris 2007-09-05 03:47:22 +00:00
parent d61af56253
commit feb47a092c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/advice.el
View file

@ -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