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) |
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) |