changeset 18323:64d728fb396a

(info-complete-symbol): If MODE is nil, use the default value.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 Jun 1997 02:44:46 +0000
parents 02f932c91db2
children e28140c58ed8
files lisp/info-look.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)