[Emacs-diffs] Changes to emacs/lisp/help-mode.el

[Luc Teirlinck]

Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.20 emacs/lisp/help-mode.el:1.21
*** emacs/lisp/help-mode.el:1.20        Sun Oct 19 00:10:34 2003
--- emacs/lisp/help-mode.el     Mon Oct 20 17:33:34 2003
***************
*** 365,370 ****
--- 365,373 ----
  ;;;                           (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,384 ****
                                                   '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))))))))
                ;; An obvious case of a key substitution:
                (save-excursion
                  (while (re-search-forward
--- 378,384 ----
                                                   'variable-documentation))
                          (help-xref-button 8 'help-variable sym))
                         ((fboundp sym)
!                         (help-xref-button 8 'help-function sym)))))))
                ;; An obvious case of a key substitution:
                (save-excursion
                  (while (re-search-forward