diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-22 22:22:06 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-22 22:22:06 -0400 |
commit | 0e8a93314941fbf1e8790cbe1f7d1e2069281b35 (patch) | |
tree | 7b0cdd683cacad9c2664d5a070409d639f32b10e /lisp/comint.el | |
parent | c08684513a37f787a540033a6e543326c9631d37 (diff) | |
download | emacs-0e8a93314941fbf1e8790cbe1f7d1e2069281b35.tar.gz |
* lisp/simple.el (completion-list-mode-map): Use choose-completion for the
mouse binding as well.
(completion-list-mode, completion-setup-function): Adjust docstring and
echo area message accordingly.
* lisp/progmodes/idlwave.el (idlwave-choose-completion): Adjust to new
calling convention of choose-completion.
* lisp/comint.el (comint-dynamic-list-completions):
* lisp/term.el (term-dynamic-list-completions): Accept choose-completion.
Fixes: debbugs:17302
Diffstat (limited to 'lisp/comint.el')
-rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 76b1d803877..00e193d642e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -3326,8 +3326,9 @@ the completions." (and (consp first) (consp (event-start first)) (eq (window-buffer (posn-window (event-start first))) (get-buffer "*Completions*")) - (eq (key-binding key) 'mouse-choose-completion))) - ;; If the user does mouse-choose-completion with the mouse, + (memq (key-binding key) + '(mouse-choose-completion choose-completion)))) + ;; If the user does choose-completion with the mouse, ;; execute the command, then delete the completion window. (progn (choose-completion first) |