Fix previous change.

diff --git a/lisp/man.el b/lisp/man.el
index d98293834690d727a4eb06fc6f9ec3b26df6c930..a6244b2d0f08eefb0d6754a2f69786a293f63170 100644 (file)
--- 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)