# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1066685614 0
# Node ID 8221f516da37a3c4090c59bf92e2d2fdc792e562
# Parent  71a1763f09d7415fef3e76d2a5803dcd1725670f
(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.

diff -r 71a1763f09d7 -r 8221f516da37 lisp/help-mode.el
--- 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