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

[Richard M . Stallman]

Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.31 emacs/lisp/help-mode.el:1.32
*** emacs/lisp/help-mode.el:1.31        Sun Mar  6 18:32:32 2005
--- emacs/lisp/help-mode.el     Mon May 16 03:31:32 2005
***************
*** 169,174 ****
--- 169,186 ----
                     (goto-char (cdr location))))
    'help-echo (purecopy"mouse-2, RET: find variable's definition"))
  
+ (define-button-type 'help-face-def
+   :supertype 'help-xref
+   'help-function (lambda (fun file)
+                  (require 'find-func)
+                  ;; Don't use find-function-noselect because it follows
+                  ;; aliases (which fails for built-in functions).
+                  (let ((location
+                         (find-function-search-for-symbol fun 'defface file)))
+                    (pop-to-buffer (car location))
+                    (goto-char (cdr location))))
+   'help-echo (purecopy "mouse-2, RET: find face's definition"))
+ 
  
  ;;;###autoload
  (defun help-mode ()