2001-09-13 Michael Kifer <kifer@cs.sunysb.edu>

	* viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key):
	inhibit quit.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f45f8e17f66..b4b265337c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-13  Michael Kifer  <kifer@cs.sunysb.edu>
+        
+        * viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key):
+        inhibit quit.
+        
 2001-09-13  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * files.el (make-auto-save-file-name): If long file names are not
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index a7bfb3bd2b4..f7f2e3f853d 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -950,7 +950,7 @@ as a Meta key and any number of multiple escapes is allowed."
 (defun viper-envelop-ESC-key ()
   (let ((event last-input-event)
         (keyseq [nil])
-        inhibit-quit)
+        (inhibit-quit t))
     (if (viper-ESC-event-p event)
         (progn
           (if (viper-fast-keysequence-p)
@@ -2548,7 +2548,8 @@ These keys are ESC, RET, and LineFeed"
   ))
 
 (defun viper-replace-char-subr (com arg)
-  (let (char inhibit-quit)
+  (let ((inhibit-quit t)
+        char)
     (viper-set-complex-command-for-undo)
     (or (eq viper-intermediate-command 'viper-repeat)
         (viper-special-read-and-insert-char))