# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866688286 0
# Node ID 64d728fb396acf8bfd997cded914086d49e4e2d1
# Parent  02f932c91db2418ca98091d7b4bde62c693579a3
(info-complete-symbol): If MODE is nil, use the default value.

diff -r 02f932c91db2 -r 64d728fb396a lisp/info-look.el
--- a/lisp/info-look.el	Thu Jun 19 02:19:21 1997 +0000
+++ b/lisp/info-look.el	Thu Jun 19 02:44:46 1997 +0000
@@ -465,12 +465,13 @@
 ;;;###autoload
 (defun info-complete-symbol (&optional mode)
   "Perform completion on symbol preceding point."
-  (interactive
-   (list (if (info-lookup->mode-value
-	      'symbol (or info-lookup-mode major-mode))
-	     (or info-lookup-mode major-mode)
-	   (info-lookup-change-mode 'symbol))))
-  (info-complete 'symbol mode))
+  (interactive)
+  (info-complete 'symbol
+		 (or mode
+		     (if (info-lookup->mode-value
+			  'symbol (or info-lookup-mode major-mode))
+			 (or info-lookup-mode major-mode)
+		       (info-lookup-change-mode 'symbol)))))
 
 ;;;###autoload
 (defun info-complete-file (&optional mode)