From 500e05aa159e139cca31800e796452a0c58f8861 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 3 Apr 2003 15:49:40 +0000 Subject: [PATCH] Fix previous change. --- lisp/man.el | 9 +++++---- 1 file 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) -- 2.11.4.GIT