# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1044482642 0
# Node ID 1da4c425c85258f50fc077d5bb45b9e9e306d5e6
# Parent  a58ef66df9f7f4806a5a301eaee8166e15189644
(ido-define-mode-map):
Undo last change (duplicates part of 2003-02-04 change).
Remap `viper' delete commands only in file or dir mode.

diff -r a58ef66df9f7 -r 1da4c425c852 lisp/ido.el
--- a/lisp/ido.el	Wed Feb 05 22:03:09 2003 +0000
+++ b/lisp/ido.el	Wed Feb 05 22:04:02 2003 +0000
@@ -1324,8 +1324,6 @@
       (define-key map [(meta down)] 'ido-next-work-directory)
       (define-key map [backspace] '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)
       (define-key map [(meta backspace)] 'ido-delete-backward-word-updir)
       (define-key map [(control backspace)] 'ido-up-directory)
       (define-key map [(meta ?b)] 'ido-next-work-file)
@@ -1355,10 +1353,11 @@
       )
 
     (when (if (boundp 'viper-mode) viper-mode)
-      (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)
-      (define-key map [remap viper-delete-backward-word] 'ido-delete-backward-word-updir)
-      (define-key map [remap viper-intercept-ESC-key] 'ignore))
+      (define-key map [remap viper-intercept-ESC-key] 'ignore)
+      (when (memq ido-cur-item '(file dir))
+	(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)
+	(define-key map [remap viper-delete-backward-word] 'ido-delete-backward-word-updir)))
 
     (setq ido-mode-map map)
     (run-hooks 'ido-define-mode-map-hook)))