Mercurial > emacs
comparison lisp/ido.el @ 49614:1da4c425c852
(ido-define-mode-map):
Undo last change (duplicates part of 2003-02-04 change).
Remap `viper' delete commands only in file or dir mode.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 05 Feb 2003 22:04:02 +0000 |
| parents | c6104239711d |
| children | 78ad1c52e368 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49613:a58ef66df9f7 | 49614:1da4c425c852 |
|---|---|
| 1322 (define-key map [up] 'ido-prev-match-dir) | 1322 (define-key map [up] 'ido-prev-match-dir) |
| 1323 (define-key map [(meta up)] 'ido-prev-work-directory) | 1323 (define-key map [(meta up)] 'ido-prev-work-directory) |
| 1324 (define-key map [(meta down)] 'ido-next-work-directory) | 1324 (define-key map [(meta down)] 'ido-next-work-directory) |
| 1325 (define-key map [backspace] 'ido-delete-backward-updir) | 1325 (define-key map [backspace] 'ido-delete-backward-updir) |
| 1326 (define-key map "\d" 'ido-delete-backward-updir) | 1326 (define-key map "\d" 'ido-delete-backward-updir) |
| 1327 (define-key map [remap viper-backward-char] 'ido-delete-backward-updir) | |
| 1328 (define-key map [remap viper-del-backward-char-in-insert] 'ido-delete-backward-updir) | |
| 1329 (define-key map [(meta backspace)] 'ido-delete-backward-word-updir) | 1327 (define-key map [(meta backspace)] 'ido-delete-backward-word-updir) |
| 1330 (define-key map [(control backspace)] 'ido-up-directory) | 1328 (define-key map [(control backspace)] 'ido-up-directory) |
| 1331 (define-key map [(meta ?b)] 'ido-next-work-file) | 1329 (define-key map [(meta ?b)] 'ido-next-work-file) |
| 1332 (define-key map [(meta ?d)] 'ido-wide-find-dir) | 1330 (define-key map [(meta ?d)] 'ido-wide-find-dir) |
| 1333 (define-key map [(meta ?f)] 'ido-wide-find-file) | 1331 (define-key map [(meta ?f)] 'ido-wide-find-file) |
| 1353 (define-key map "\C-f" 'ido-enter-find-file) | 1351 (define-key map "\C-f" 'ido-enter-find-file) |
| 1354 (define-key map "\C-k" 'ido-kill-buffer-at-head) | 1352 (define-key map "\C-k" 'ido-kill-buffer-at-head) |
| 1355 ) | 1353 ) |
| 1356 | 1354 |
| 1357 (when (if (boundp 'viper-mode) viper-mode) | 1355 (when (if (boundp 'viper-mode) viper-mode) |
| 1358 (define-key map [remap viper-backward-char] 'ido-delete-backward-updir) | 1356 (define-key map [remap viper-intercept-ESC-key] 'ignore) |
| 1359 (define-key map [remap viper-del-backward-char-in-insert] 'ido-delete-backward-updir) | 1357 (when (memq ido-cur-item '(file dir)) |
| 1360 (define-key map [remap viper-delete-backward-word] 'ido-delete-backward-word-updir) | 1358 (define-key map [remap viper-backward-char] 'ido-delete-backward-updir) |
| 1361 (define-key map [remap viper-intercept-ESC-key] 'ignore)) | 1359 (define-key map [remap viper-del-backward-char-in-insert] 'ido-delete-backward-updir) |
| 1360 (define-key map [remap viper-delete-backward-word] 'ido-delete-backward-word-updir))) | |
| 1362 | 1361 |
| 1363 (setq ido-mode-map map) | 1362 (setq ido-mode-map map) |
| 1364 (run-hooks 'ido-define-mode-map-hook))) | 1363 (run-hooks 'ido-define-mode-map-hook))) |
| 1365 | 1364 |
| 1366 (defun ido-final-slash (dir &optional fix-it) | 1365 (defun ido-final-slash (dir &optional fix-it) |