Mercurial > emacs

changeset 50418:b2939c93b5f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 03 Apr 2003 15:49:40 +0000
parents c047e3116b28
children 27e134f43171
files lisp/man.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)