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/help-mode.el | |
| parent | 40e22d80ae027f2a833be444d95bce832b68e54c (diff) | |
| download | emacs-b1ea593c8121821485fdc758a30efdf03bb63168.tar.gz | |
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/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index cafd7d07fde..826145d7af0 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -325,6 +325,15 @@ Commands: ;; View mode's read-only status of existing *Help* buffer is lost ;; by with-output-to-temp-buffer. (toggle-read-only 1) + + (save-excursion + (goto-char (point-min)) + (let ((inhibit-read-only t)) + (when (re-search-forward "^This \\w+ is advised.$" nil t) + (put-text-property (match-beginning 0) + (match-end 0) + 'face 'font-lock-warning-face)))) + (help-make-xrefs (current-buffer)))) ;; Grokking cross-reference information in doc strings and |