diff options
| author | Leo Liu <sdl.web@gmail.com> | 2011-01-28 16:42:11 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-01-28 16:42:11 -0500 |
| commit | b1ea593c8121821485fdc758a30efdf03bb63168 (patch) | |
| tree | cf627656a45157cd1d137c4d9995785ed6fff39e /lisp/emacs-lisp | |
| parent | 40e22d80ae027f2a833be444d95bce832b68e54c (diff) | |
| download | emacs-b1ea593c8121821485fdc758a30efdf03bb63168.tar.gz emacs-b1ea593c8121821485fdc758a30efdf03bb63168.tar.bz2 emacs-b1ea593c8121821485fdc758a30efdf03bb63168.zip | |
Fix help-mode highlighting of advice warning (Bug#6304).
* emacs-lisp/advice.el (ad-make-advised-docstring): Don't apply
highlighting to the "this function is advisted" message.
* help-mode.el (help-mode-finish): Apply highlighting here, to
avoid clobbering by substitute-command-keys (Bug#6304).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index a1a3c3e5f93..915a726ae11 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3007,9 +3007,7 @@ 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 (propertize (concat "This " origtype " is advised.") - 'face 'font-lock-warning-face) - paragraphs)) + (push (concat "This " origtype " is advised.") paragraphs)) (ad-dolist (class ad-advice-classes) (ad-dolist (advice (ad-get-enabled-advices function class)) (setq advice-docstring |