diff options
| author | Richard M. Stallman | 1997-06-19 02:44:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-19 02:44:46 +0000 |
| commit | 82fb111c22faebb8fd98b30f1bde2d0d01b723eb (patch) | |
| tree | 8b2e79b4b6aa9e07b06c3b9d93a5b1ccb59bba99 | |
| parent | 5a79736d825eda659f66df87459ba02ff30dd59d (diff) | |
| download | emacs-82fb111c22faebb8fd98b30f1bde2d0d01b723eb.tar.gz emacs-82fb111c22faebb8fd98b30f1bde2d0d01b723eb.zip | |
(info-complete-symbol): If MODE is nil, use the default value.
| -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." | |||
| 465 | ;;;###autoload | 465 | ;;;###autoload |
| 466 | (defun info-complete-symbol (&optional mode) | 466 | (defun info-complete-symbol (&optional mode) |
| 467 | "Perform completion on symbol preceding point." | 467 | "Perform completion on symbol preceding point." |
| 468 | (interactive | 468 | (interactive) |
| 469 | (list (if (info-lookup->mode-value | 469 | (info-complete 'symbol |
| 470 | 'symbol (or info-lookup-mode major-mode)) | 470 | (or mode |
| 471 | (or info-lookup-mode major-mode) | 471 | (if (info-lookup->mode-value |
| 472 | (info-lookup-change-mode 'symbol)))) | 472 | 'symbol (or info-lookup-mode major-mode)) |
| 473 | (info-complete 'symbol mode)) | 473 | (or info-lookup-mode major-mode) |
| 474 | (info-lookup-change-mode 'symbol))))) | ||
| 474 | 475 | ||
| 475 | ;;;###autoload | 476 | ;;;###autoload |
| 476 | (defun info-complete-file (&optional mode) | 477 | (defun info-complete-file (&optional mode) |