(Info-complete-menu-item): Add missing parenthesis.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 983e8db713c7ffa131f917e8b526d62994e5d397..7466a38b7137b135befccfcd100e16548bf5c6f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-22  Juanma Barranquero  <lekktu@gmail.com>
+
+       * info.el (Info-complete-menu-item): Add missing parenthesis.
+
 2008-04-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * info.el (Info-complete-menu-item): Save point.

diff --git a/lisp/info.el b/lisp/info.el
index 259c999d6aa2a79f4ed46bbfcc2ef7ac649300d0..ab83b45a2a70054815f3d4b3fa4ef32b4ea102be 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2307,12 +2307,12 @@ Because of ambiguities, this should be concatenated with something like
                 (Info-goto-node orignode))
               ;; Update the cache.
               (set (make-local-variable 'Info-complete-cache)
-                (list Info-current-file Info-current-node
-                      Info-complete-next-re string completions
-                      Info-complete-nodes)))
-         (if action
-             (all-completions string completions predicate)
-           (try-completion string completions predicate)))))))
+                  (list Info-current-file Info-current-node
+                        Info-complete-next-re string completions
+                        Info-complete-nodes)))
+           (if action
+               (all-completions string completions predicate)
+             (try-completion string completions predicate))))))))
 
 
 (defun Info-menu (menu-item &optional fork)