diff options
author | Luc Teirlinck <teirllm@auburn.edu> | 2003-10-20 21:33:34 +0000 |
---|---|---|
committer | Luc Teirlinck <teirllm@auburn.edu> | 2003-10-20 21:33:34 +0000 |
commit | b1664339f4c1adac3f5d1e9a99c3850a28346100 (patch) | |
tree | 6ddccef12c93efb91e030a5cd4e2fe22f6c5a920 /lisp/help-mode.el | |
parent | 778c391b056ccea8e2171c51e654b389efd35bf7 (diff) |
(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.
Diffstat (limited to 'lisp/help-mode.el')
-rw-r--r-- | lisp/help-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index bcf15c54f77..087e4f159df 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -365,6 +365,9 @@ that." ;;; (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 @@ that." '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 |