diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-04-03 15:49:40 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-04-03 15:49:40 +0000 |
| commit | 500e05aa159e139cca31800e796452a0c58f8861 (patch) | |
| tree | 5204e249c3c802fd0f64d1164e6516fcd73eebde /lisp/man.el | |
| parent | 428c1209173f2e940169b3599979da06cf43212e (diff) | |
| download | emacs-500e05aa159e139cca31800e796452a0c58f8861.tar.gz | |
Fix previous change.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/man.el b/lisp/man.el index d9829383469..a6244b2d0f0 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -394,10 +394,11 @@ make -a one of the switches, if your `man' program supports it.") 'help-echo "RET, mouse-2: display this man page") (define-button-type 'Man-xref-header-file - 'action (lambda (button) - (unless (Man-view-header-file (button-get button 'Man-target-string)) - (error "Cannot find header file: %s" w))) - 'help-echo "mouse-2: display this header file") + 'action (lambda (button) + (let ((w (button-get button 'Man-target-string))) + (unless (Man-view-header-file w) + (error "Cannot find header file: %s" w)))) + 'help-echo "mouse-2: display this header file") (define-button-type 'Man-xref-normal-file 'action (lambda (button) |