# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1049384980 0
# Node ID b2939c93b5f7a9bc9b3e1138062e4e8547120678
# Parent  c047e3116b284cfffaba5794941961f7d78e2b1b
Fix previous change.

diff -r c047e3116b28 -r b2939c93b5f7 lisp/man.el
--- a/lisp/man.el	Thu Apr 03 02:49:16 2003 +0000
+++ b/lisp/man.el	Thu Apr 03 15:49:40 2003 +0000
@@ -394,10 +394,11 @@
   '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)