diff options
| author | Leo Liu <sdl.web@gmail.com> | 2010-04-21 07:00:58 -0400 |
|---|---|---|
| committer | John Wiegley <jwiegley@gmail.com> | 2010-04-21 07:00:58 -0400 |
| commit | c5cbeb128e3d3fc20d6e481308f154526c96e6cf (patch) | |
| tree | 153abc56de60b7a3e1db29adb65464498044ce2c | |
| parent | b6c73ee22767019209a6677c5d122f98381e3c15 (diff) | |
| download | emacs-c5cbeb128e3d3fc20d6e481308f154526c96e6cf.tar.gz | |
Added C-o keybinding to toggle use of virtual buffers
* ido.el (ido-init-completion-maps): For ido-switch-buffer, C-o
toggles the use of virtual buffers.
(ido-buffer-internal): Guard `ido-use-virtual-buffers' global
value.
(ido-toggle-virtual-buffers): New function.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/ido.el | 12 |
2 files changed, 20 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0aca3a2697d..1162638f8a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2010-04-21 John Wiegley <jwiegley@gmail.com> + + * ido.el (ido-init-completion-maps): For ido-switch-buffer, C-o + toggles the use of virtual buffers. + (ido-buffer-internal): Guard `ido-use-virtual-buffers' global + value. + (ido-toggle-virtual-buffers): New function. + 2010-04-21 Juanma Barranquero <lekktu@gmail.com> Use `define-derived-mode'; fix window selection; doc fixes. diff --git a/lisp/ido.el b/lisp/ido.el index 57aa7d4a723..14a5c14ff09 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1633,6 +1633,7 @@ This function also adds a hook to the minibuffer." (define-key map "\C-x\C-f" 'ido-enter-find-file) (define-key map "\C-x\C-b" 'ido-fallback-command) (define-key map "\C-k" 'ido-kill-buffer-at-head) + (define-key map "\C-o" 'ido-toggle-virtual-buffers) (set-keymap-parent map ido-common-completion-map) (setq ido-buffer-completion-map map))) @@ -2182,6 +2183,7 @@ If cursor is not at the end of the user input, move to end of input." (ido-current-directory nil) (ido-directory-nonreadable nil) (ido-directory-too-big nil) + (ido-use-virtual-buffers ido-use-virtual-buffers) (require-match (confirm-nonexistent-file-or-buffer)) (buf (ido-read-internal 'buffer (or prompt "Buffer: ") 'ido-buffer-history default require-match initial)) @@ -2705,6 +2707,16 @@ C-x C-f ... C-d enter `dired' on current directory." (setq ido-exit 'keep) (exit-minibuffer)))) +(defun ido-toggle-virtual-buffers () + "Toggle the use of virtual buffers. +See `ido-use-virtual-buffers' for explanation of virtual buffer." + (interactive) + (when (and ido-mode (eq ido-cur-item 'buffer)) + (setq ido-use-virtual-buffers (not ido-use-virtual-buffers)) + (setq ido-text-init ido-text) + (setq ido-exit 'refresh) + (exit-minibuffer))) + (defun ido-reread-directory () "Read current directory again. May be useful if cached version is no longer valid, but directory |