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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f45f8e17f66d69303611d17647faee3c14160733..b4b265337c814a655c8aa8cfe56272308af213e7 100644 (file)
--- 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 a7bfb3bd2b44f943b2a4e94df7a696d813ebc44d..f7f2e3f853d81dc1600aef3bc08f996a80ec009b 100644 (file)
--- 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))