new version

2 files changed, 20 insertions, 20 deletions

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 85eb264a208..33e6e685f34 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -347,31 +347,29 @@
                (not viper-want-emacs-keys-in-insert))
                    
          (if viper-want-ctl-h-help
-             (progn 
-               (define-key viper-insert-basic-map [backspace] 'help-command)
-               (define-key viper-replace-map [backspace] 'help-command)
-               (define-key viper-insert-basic-map [(control h)] 'help-command)
-               (define-key viper-replace-map [(control h)] 'help-command))
-           (define-key viper-insert-basic-map 
-             [backspace] 'viper-del-backward-char-in-insert)
-           (define-key viper-replace-map
-             [backspace] 'viper-del-backward-char-in-replace)
+             (progn
+               (define-key viper-insert-basic-map "\C-h" 'help-command)
+               (define-key viper-replace-map "\C-h" 'help-command))
            (define-key viper-insert-basic-map 
-             [(control h)] 'viper-del-backward-char-in-insert)
+             "\C-h" 'viper-del-backward-char-in-insert)
            (define-key viper-replace-map
-             [(control h)] 'viper-del-backward-char-in-replace)))
-                     
+             "\C-h" 'viper-del-backward-char-in-replace))
+         ;; In XEmacs, C-h overrides backspace, so we make sure it doesn't.
+         (define-key viper-insert-basic-map
+           [backspace] 'viper-del-backward-char-in-insert)
+         (define-key viper-replace-map
+           [backspace] 'viper-del-backward-char-in-replace)
+         ) ; end insert/replace case
         (t ; Vi state
          (setq viper-vi-diehard-minor-mode (not viper-want-emacs-keys-in-vi))
          (if viper-want-ctl-h-help
-             (progn
-               (define-key viper-vi-basic-map [backspace] 'help-command)
-               (define-key viper-vi-basic-map [(control h)] 'help-command))
-           (define-key viper-vi-basic-map [backspace] 'viper-backward-char)
-           (define-key viper-vi-basic-map [(control h)] 'viper-backward-char)))
+             (define-key viper-vi-basic-map "\C-h" 'help-command)
+           (define-key viper-vi-basic-map "\C-h" 'viper-backward-char))
+         ;; In XEmacs, C-h overrides backspace, so we make sure it doesn't.
+         (define-key viper-vi-basic-map [backspace] 'viper-backward-char))
         ))
              
-    
+   
 ;; Normalizes minor-mode-map-alist by putting Viper keymaps first.
 ;; This ensures that Viper bindings are in effect, regardless of which minor
 ;; modes were turned on by the user or by other packages.
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index 3da13594e0d..961a7d1a1cc 100644
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -83,8 +83,7 @@ as is allowed by the major mode in effect."
   :group 'viper) 
 
 (defcustom viper-want-ctl-h-help nil
-  "*If t then C-h is bound to help-command in insert mode, if nil then it is
-bound to delete-backward-char."
+  "*If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings."
   :type 'boolean
   :group 'viper)
 
@@ -241,6 +240,7 @@ viper-insert-basic-map. Not recommended, except for novice users.")
   (if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab)
 (define-key viper-insert-basic-map "\C-v" 'quoted-insert)
 (define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert)
+(define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert)
 (define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key)
 (define-key viper-insert-basic-map viper-toggle-key 'viper-escape-to-vi)
 (define-key viper-insert-basic-map "\C-c\M-p"
@@ -254,6 +254,7 @@ viper-insert-basic-map. Not recommended, except for novice users.")
 (define-key viper-replace-map "\C-j" 'viper-replace-state-carriage-return)
 (define-key viper-replace-map "\C-m" 'viper-replace-state-carriage-return)
 (define-key viper-replace-map "\C-?" 'viper-del-backward-char-in-replace)
+(define-key viper-replace-map [backspace] 'viper-del-backward-char-in-replace)
 
 
 
@@ -356,6 +357,7 @@ viper-insert-basic-map. Not recommended, except for novice users.")
 (define-key viper-vi-basic-map "f" 'viper-find-char-forward)
 (define-key viper-vi-basic-map "g" 'viper-nil)
 (define-key viper-vi-basic-map "h" 'viper-backward-char)
+(define-key viper-vi-basic-map [backspace] 'viper-backward-char)
 (define-key viper-vi-basic-map "i" 'viper-insert)
 (define-key viper-vi-basic-map "j" 'viper-next-line)
 (define-key viper-vi-basic-map "k" 'viper-previous-line)