/[emacs]/emacs/lisp/ido.el
ViewVC logotype

Diff of /emacs/lisp/ido.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by kfstorm, Mon Sep 2 10:40:56 2002 UTC revision 1.13 by kfstorm, Tue Oct 22 22:27:50 2002 UTC
# Line 1268  This function also adds a hook to the mi Line 1268  This function also adds a hook to the mi
1268      (define-key map "\C-s" 'ido-next-match)      (define-key map "\C-s" 'ido-next-match)
1269      (define-key map "\C-t" 'ido-toggle-regexp)      (define-key map "\C-t" 'ido-toggle-regexp)
1270      (define-key map "\C-z" 'ido-undo-merge-work-directory)      (define-key map "\C-z" 'ido-undo-merge-work-directory)
1271        (define-key map [(control ? )] 'ido-restrict-to-matches)
1272        (define-key map [(control ?@)] 'ido-restrict-to-matches)
1273      (define-key map [right] 'ido-next-match)      (define-key map [right] 'ido-next-match)
1274      (define-key map [left] 'ido-prev-match)      (define-key map [left] 'ido-prev-match)
1275      (define-key map "?" 'ido-completion-help)      (define-key map "?" 'ido-completion-help)
# Line 2361  for first matching file." Line 2363  for first matching file."
2363        (if (> i 0)        (if (> i 0)
2364            (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches)))))))            (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches)))))))
2365    
2366    (defun ido-restrict-to-matches ()
2367      "Set current item list to the currently matched items."
2368      (interactive)
2369      (when ido-matches
2370        (setq ido-cur-list ido-matches
2371              ido-text-init ""
2372              ido-rescan nil
2373              ido-exit 'keep)
2374        (exit-minibuffer)))
2375    
2376  (defun ido-chop (items elem)  (defun ido-chop (items elem)
2377    "Remove all elements before ELEM and put them at the end of ITEMS."    "Remove all elements before ELEM and put them at the end of ITEMS."
2378    (let ((ret nil)    (let ((ret nil)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26