/[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.6 by rms, Tue Nov 20 23:36:37 2001 UTC revision 1.7 by rms, Sun Nov 25 18:49:03 2001 UTC
# Line 76  The format is (FUNCTION ARGS...).") Line 76  The format is (FUNCTION ARGS...).")
76                  (button-get button 'help-function)                  (button-get button 'help-function)
77                  (button-get button 'help-args)))                  (button-get button 'help-args)))
78    
79  ;; Make some button types that all use the same naming conventions  ;; These 6 calls to define-button-type were generated in a dolist
80  (dolist (help-type '("function" "variable" "face"  ;; loop, but that is bad because it means these button types don't
81                       "coding-system" "input-method" "character-set"))  ;; have an easily found definition.
82    (define-button-type (intern (purecopy (concat "help-" help-type)))  
83      :supertype 'help-xref  (define-button-type 'help-function
84      'help-function (intern (concat "describe-" help-type))    :supertype 'help-xref
85      'help-echo (purecopy (concat "mouse-2, RET: describe this " help-type))))    'help-function 'describe-function
86      'help-echo (purecopy "mouse-2, RET: describe this function"))
87    
88    (define-button-type 'help-variable
89      :supertype 'help-xref
90      'help-function 'describe-variable
91      'help-echo (purecopy "mouse-2, RET: describe this variable"))
92    
93    (define-button-type 'help-face
94      :supertype 'help-xref
95      'help-function 'describe-face
96      'help-echo (purecopy "mouse-2, RET: describe this face"))
97    
98    (define-button-type 'help-coding-system
99      :supertype 'help-xref
100      'help-function 'describe-coding-system
101      'help-echo (purecopy "mouse-2, RET: describe this coding system"))
102    
103    (define-button-type 'help-input-method
104      :supertype 'help-xref
105      'help-function 'describe-input-method
106      'help-echo (purecopy "mouse-2, RET: describe this input method"))
107    
108    (define-button-type 'help-character-set
109      :supertype 'help-xref
110      'help-function 'describe-character-set
111      'help-echo (purecopy "mouse-2, RET: describe this character set"))
112    
113  ;; make some more ideosyncratic button types  ;; make some more ideosyncratic button types
114    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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