/[emacs]/emacs/lisp/help-mode.el
ViewVC logotype

Diff of /emacs/lisp/help-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by rms, Sun Mar 6 18:32:32 2005 UTC revision 1.32 by rms, Mon May 16 03:31:32 2005 UTC
# Line 169  The format is (FUNCTION ARGS...).") Line 169  The format is (FUNCTION ARGS...).")
169                       (goto-char (cdr location))))                       (goto-char (cdr location))))
170    'help-echo (purecopy"mouse-2, RET: find variable's definition"))    'help-echo (purecopy"mouse-2, RET: find variable's definition"))
171    
172    (define-button-type 'help-face-def
173      :supertype 'help-xref
174      'help-function (lambda (fun file)
175                       (require 'find-func)
176                       ;; Don't use find-function-noselect because it follows
177                       ;; aliases (which fails for built-in functions).
178                       (let ((location
179                              (find-function-search-for-symbol fun 'defface file)))
180                         (pop-to-buffer (car location))
181                         (goto-char (cdr location))))
182      'help-echo (purecopy "mouse-2, RET: find face's definition"))
183    
184    
185  ;;;###autoload  ;;;###autoload
186  (defun help-mode ()  (defun help-mode ()

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26