diff options
| author | Richard M. Stallman | 1999-04-09 19:22:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-04-09 19:22:42 +0000 |
| commit | 364581dc9591f729210c1fbfc9d6fe8bad41ccd6 (patch) | |
| tree | 1b4426446d6f47d9b6db6c95c09cb939bfa8ea86 | |
| parent | f87740dccbc3b62d5a588dba5cdf5eff2a00d2f0 (diff) | |
| download | emacs-364581dc9591f729210c1fbfc9d6fe8bad41ccd6.tar.gz emacs-364581dc9591f729210c1fbfc9d6fe8bad41ccd6.zip | |
(complete-symbol): Invert meaning of prefix arg.
| -rw-r--r-- | lisp/bindings.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index f2f22a82490..f8aba633eea 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -289,15 +289,19 @@ is okay. See `mode-line-format'.") | |||
| 289 | "Perform tags completion on the text around point. | 289 | "Perform tags completion on the text around point. |
| 290 | Completes to the set of names listed in the current tags table. | 290 | Completes to the set of names listed in the current tags table. |
| 291 | The string to complete is chosen in the same way as the default | 291 | The string to complete is chosen in the same way as the default |
| 292 | for \\[find-tag] (which see)." | 292 | for \\[find-tag] (which see). |
| 293 | |||
| 294 | With a prefix argument, this command does completion within | ||
| 295 | the collection of symbols listed in the index of the manual for the | ||
| 296 | language you are using." | ||
| 293 | (interactive "P") | 297 | (interactive "P") |
| 294 | (if arg | 298 | (if arg |
| 295 | (if (fboundp 'complete-tag) | 299 | (info-complete-symbol) |
| 296 | (complete-tag) | 300 | (if (fboundp 'complete-tag) |
| 297 | ;; Don't autoload etags if we have no tags table. | 301 | (complete-tag) |
| 298 | (error (substitute-command-keys | 302 | ;; Don't autoload etags if we have no tags table. |
| 299 | "No tags table loaded; use \\[visit-tags-table] to load one"))) | 303 | (error (substitute-command-keys |
| 300 | (info-complete-symbol))) | 304 | "No tags table loaded; use \\[visit-tags-table] to load one"))))) |
| 301 | 305 | ||
| 302 | ;; Reduce total amount of space we must allocate during this function | 306 | ;; Reduce total amount of space we must allocate during this function |
| 303 | ;; that we will not need to keep permanently. | 307 | ;; that we will not need to keep permanently. |