Mercurial > emacs
comparison lisp/comint.el @ 105740:f6fc3559bd1d
(comint-dynamic-list-completions): Use choose-completion rather than
obsolete alias mouse-choose-completion.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 24 Oct 2009 03:50:20 +0000 |
| parents | 56a197ab757c |
| children | 3d8945f5688d |
comparison
equal
deleted
inserted
replaced
| 105739:af8ed20ba9ca | 105740:f6fc3559bd1d |
|---|---|
| 3028 (get-buffer "*Completions*")) | 3028 (get-buffer "*Completions*")) |
| 3029 (eq (key-binding key) 'mouse-choose-completion))) | 3029 (eq (key-binding key) 'mouse-choose-completion))) |
| 3030 ;; If the user does mouse-choose-completion with the mouse, | 3030 ;; If the user does mouse-choose-completion with the mouse, |
| 3031 ;; execute the command, then delete the completion window. | 3031 ;; execute the command, then delete the completion window. |
| 3032 (progn | 3032 (progn |
| 3033 (mouse-choose-completion first) | 3033 (choose-completion first) |
| 3034 (set-window-configuration comint-dynamic-list-completions-config)) | 3034 (set-window-configuration comint-dynamic-list-completions-config)) |
| 3035 (if (eq first ?\s) | 3035 (if (eq first ?\s) |
| 3036 (set-window-configuration comint-dynamic-list-completions-config) | 3036 (set-window-configuration comint-dynamic-list-completions-config) |
| 3037 (setq unread-command-events (listify-key-sequence key))))))) | 3037 (setq unread-command-events (listify-key-sequence key))))))) |
| 3038 | 3038 |