diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-12-06 16:06:02 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-12-06 16:06:02 -0500 |
| commit | 67027b49796eec01dccf1e14d7b0497b2d484328 (patch) | |
| tree | b38a77d75e4caa35f7045690da750857a4eb4b6b /lisp/bindings.el | |
| parent | 88b5a757a2ea698831c61bb10abc9c0abab7d31c (diff) | |
| download | emacs-67027b49796eec01dccf1e14d7b0497b2d484328.tar.gz emacs-67027b49796eec01dccf1e14d7b0497b2d484328.tar.bz2 emacs-67027b49796eec01dccf1e14d7b0497b2d484328.zip | |
* lisp/bindings.el (complete-symbol): Move back from minibuffer.el.
* lisp/minibuffer.el (completion-at-point): Remove the `arg'.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index e9a4c559169..bd4a1203364 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -655,6 +655,16 @@ is okay. See `mode-line-format'.") (define-key esc-map "\t" 'complete-symbol) +(defun complete-symbol (arg) + "Perform completion on the text around point. +The completion method is determined by `completion-at-point-functions'. + +With a prefix argument, this command does completion within +the collection of symbols listed in the index of the manual for the +language you are using." + (interactive "P") + (if arg (info-complete-symbol) (completion-at-point))) + ;; Reduce total amount of space we must allocate during this function ;; that we will not need to keep permanently. (garbage-collect) |