(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.
This commit is contained in:
Luc Teirlinck 2003-10-20 21:33:34 +00:00
parent 778c391b05
commit b1664339f4

View file

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