/[emacs]/emacs/lisp/man.el
ViewVC logotype

Diff of /emacs/lisp/man.el

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

revision 1.118 by lektu, Wed Apr 2 21:22:38 2003 UTC revision 1.119 by lektu, Thu Apr 3 15:49:40 2003 UTC
# Line 394  make -a one of the switches, if your `ma Line 394  make -a one of the switches, if your `ma
394    'help-echo "RET, mouse-2: display this man page")    'help-echo "RET, mouse-2: display this man page")
395    
396  (define-button-type 'Man-xref-header-file  (define-button-type 'Man-xref-header-file
397    'action (lambda (button)      'action (lambda (button)
398              (unless (Man-view-header-file (button-get button 'Man-target-string))                (let ((w (button-get button 'Man-target-string)))
399                (error "Cannot find header file: %s" w)))                  (unless (Man-view-header-file w)
400    'help-echo "mouse-2: display this header file")                    (error "Cannot find header file: %s" w))))
401        'help-echo "mouse-2: display this header file")
402    
403  (define-button-type 'Man-xref-normal-file  (define-button-type 'Man-xref-normal-file
404    'action (lambda (button)    'action (lambda (button)

Legend:
Removed from v.1.118  
changed lines
  Added in v.1.119

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