commit 888a46343cb3cd4429aae4bb345ae0a9e2b26892 parent 540fa610ed6641b397d522653400cdc531b6ead0 Author: Vincent Demeester <vincent@sbr.pm> Date: Fri, 10 Apr 2020 10:00:49 +0200 config-completion.el: bind vde/switch-buffer Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-completion.el | | | 40 | +++++++++++++++++++++------------------- |
1 file changed, 21 insertions(+), 19 deletions(-)
diff --git a/tools/emacs/config/config-completion.el b/tools/emacs/config/config-completion.el @@ -181,25 +181,27 @@ Otherwise, use `projectile-switch-to-project'." (call-interactively 'switch-to-buffer) (projectile-switch-to-buffer))) - :bind (:map icomplete-minibuffer-map - ("C-m" . minibuffer-complete-and-exit) ; force current input - ("C-n" . icomplete-forward-completions) - ("<right>" . icomplete-forward-completions) - ("<down>" . icomplete-forward-completions) - ("C-p" . icomplete-backward-completions) - ("<left>" . icomplete-backward-completions) - ("<up>" . icomplete-backward-completions) - ("<return>" . vde/icomplete-force-complete-and-exit) - ("M-o w" . vde/icomplete-kill-ring-save) - ("M-o i" . (lambda () - (interactive) - (let ((current-prefix-arg t)) - (vde/icomplete-kill-ring-save)))) - ("C-M-," . vde/icomplete-toggle-completion-styles) - ("C-M-." . (lambda () - (interactive) - (let ((current-prefix-arg t)) - (vde/icomplete-toggle-completion-styles)))))) + :bind (("C-x b" . vde/switch-buffer) + ("C-x B" . switch-to-buffer) + :map icomplete-minibuffer-map + ("C-m" . minibuffer-complete-and-exit) ; force current input + ("C-n" . icomplete-forward-completions) + ("<right>" . icomplete-forward-completions) + ("<down>" . icomplete-forward-completions) + ("C-p" . icomplete-backward-completions) + ("<left>" . icomplete-backward-completions) + ("<up>" . icomplete-backward-completions) + ("<return>" . vde/icomplete-force-complete-and-exit) + ("M-o w" . vde/icomplete-kill-ring-save) + ("M-o i" . (lambda () + (interactive) + (let ((current-prefix-arg t)) + (vde/icomplete-kill-ring-save)))) + ("C-M-," . vde/icomplete-toggle-completion-styles) + ("C-M-." . (lambda () + (interactive) + (let ((current-prefix-arg t)) + (vde/icomplete-toggle-completion-styles)))))) ;; -UseIComplete ;; UseCompany