diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-19 02:44:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-19 02:44:46 +0000 |
| commit | 7d6c039f506a2105dbbc5a0d2540daf2e9d75c31 (patch) | |
| tree | bec384b25bfd529af49e1c91a9f677b56512b7ff /lisp | |
| parent | dc5312640fa1704d6575bfa50bbb3dcc1f6099ed (diff) | |
| download | emacs-7d6c039f506a2105dbbc5a0d2540daf2e9d75c31.tar.gz | |
(info-complete-symbol): If MODE is nil, use the default value.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info-look.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index c798bb769b4..113306dc69e 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -465,12 +465,13 @@ Return nil if there is nothing appropriate." ;;;###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) |