/[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.29 by kai, Wed Feb 5 20:12:56 2003 UTC revision 1.30 by kfstorm, Wed Feb 5 22:04:02 2003 UTC
# Line 1324  This function also adds a hook to the mi Line 1324  This function also adds a hook to the mi
1324        (define-key map [(meta down)] 'ido-next-work-directory)        (define-key map [(meta down)] 'ido-next-work-directory)
1325        (define-key map [backspace] 'ido-delete-backward-updir)        (define-key map [backspace] 'ido-delete-backward-updir)
1326        (define-key map "\d"        'ido-delete-backward-updir)        (define-key map "\d"        'ido-delete-backward-updir)
       (define-key map [remap viper-backward-char] 'ido-delete-backward-updir)  
       (define-key map [remap viper-del-backward-char-in-insert] 'ido-delete-backward-updir)  
1327        (define-key map [(meta backspace)] 'ido-delete-backward-word-updir)        (define-key map [(meta backspace)] 'ido-delete-backward-word-updir)
1328        (define-key map [(control backspace)] 'ido-up-directory)        (define-key map [(control backspace)] 'ido-up-directory)
1329        (define-key map [(meta ?b)] 'ido-next-work-file)        (define-key map [(meta ?b)] 'ido-next-work-file)
# Line 1355  This function also adds a hook to the mi Line 1353  This function also adds a hook to the mi
1353        )        )
1354    
1355      (when (if (boundp 'viper-mode) viper-mode)      (when (if (boundp 'viper-mode) viper-mode)
1356        (define-key map [remap viper-backward-char] 'ido-delete-backward-updir)        (define-key map [remap viper-intercept-ESC-key] 'ignore)
1357        (define-key map [remap viper-del-backward-char-in-insert] 'ido-delete-backward-updir)        (when (memq ido-cur-item '(file dir))
1358        (define-key map [remap viper-delete-backward-word] 'ido-delete-backward-word-updir)          (define-key map [remap viper-backward-char] 'ido-delete-backward-updir)
1359        (define-key map [remap viper-intercept-ESC-key] 'ignore))          (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)))
1361    
1362      (setq ido-mode-map map)      (setq ido-mode-map map)
1363      (run-hooks 'ido-define-mode-map-hook)))      (run-hooks 'ido-define-mode-map-hook)))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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