diff options
author | Kim F. Storm <[email protected]> | 2002-10-22 22:27:50 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2002-10-22 22:27:50 +0000 |
commit | 08bfde76b7d27d6c3d753e18ac1e82f57ccba0ac (patch) | |
tree | bf0b1469fa7b89021dcd4a405108b979f27c7ac7 | |
parent | 00e98040d106230e0860a7470f7bd9ba01b7cae3 (diff) |
(ido-restrict-to-matches): New command.
(ido-define-mode-map): Bind it to C-SPC and C-@ in ido-mode-map.
-rw-r--r-- | lisp/ido.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index 054c084968..f9ba8178cb 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1268,6 +1268,8 @@ This function also adds a hook to the minibuffer." (define-key map "\C-s" 'ido-next-match) (define-key map "\C-t" 'ido-toggle-regexp) (define-key map "\C-z" 'ido-undo-merge-work-directory) + (define-key map [(control ? )] 'ido-restrict-to-matches) + (define-key map [(control ?@)] 'ido-restrict-to-matches) (define-key map [right] 'ido-next-match) (define-key map [left] 'ido-prev-match) (define-key map "?" 'ido-completion-help) @@ -2361,6 +2363,16 @@ for first matching file." (if (> i 0) (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches))))))) +(defun ido-restrict-to-matches () + "Set current item list to the currently matched items." + (interactive) + (when ido-matches + (setq ido-cur-list ido-matches + ido-text-init "" + ido-rescan nil + ido-exit 'keep) + (exit-minibuffer))) + (defun ido-chop (items elem) "Remove all elements before ELEM and put them at the end of ITEMS." (let ((ret nil) |