Mercurial > emacs
changeset 52885:8221f516da37
(help-make-xrefs): Make sure that if a symbol is followed by the word
`face', it gets treated as a face, even if it is also defined as a
variable or a function.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 20 Oct 2003 21:33:34 +0000 |
| parents | 71a1763f09d7 |
| children | 3a30e4cd22e9 |
| files | lisp/help-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-mode.el Mon Oct 20 21:32:25 2003 +0000 +++ b/lisp/help-mode.el Mon Oct 20 21:33:34 2003 +0000 @@ -365,6 +365,9 @@ ;;; (pop-to-buffer (car location)) ;;; (goto-char (cdr location)))) (help-xref-button 8 'help-function-def sym)) + ((facep sym) + (if (save-match-data (looking-at "[ \t\n]+face\\W")) + (help-xref-button 8 'help-face sym))) ((and (boundp sym) (fboundp sym)) ;; We can't intuit whether to use the ;; variable or function doc -- supply both. @@ -375,10 +378,7 @@ 'variable-documentation)) (help-xref-button 8 'help-variable sym)) ((fboundp sym) - (help-xref-button 8 'help-function sym)) - ((facep sym) - (if (save-match-data (looking-at "[ \t\n]+face\\W")) - (help-xref-button 8 'help-face sym)))))))) + (help-xref-button 8 'help-function sym))))))) ;; An obvious case of a key substitution: (save-excursion (while (re-search-forward