[Emacs-diffs] Changes to emacs/lisp/ido.el

[Kim F. Storm]

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.12 emacs/lisp/ido.el:1.13
*** emacs/lisp/ido.el:1.12      Mon Sep  2 06:40:56 2002
--- emacs/lisp/ido.el   Tue Oct 22 18:27:50 2002
***************
*** 1268,1273 ****
--- 1268,1275 ----
      (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)
***************
*** 2360,2365 ****
--- 2362,2377 ----
        (setq i (1- i)))
        (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."