Commit b1664339 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(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.
parent 778c391b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment