# HG changeset patch
# User Michael Kifer <kifer@cs.stonybrook.edu>
# Date 1000438471 0
# Node ID 25dc021070bc3ea61ea095e2fc246c1b36996345
# Parent  3b40423b93556811a2eda6f187b51ea8a10de4f6
2001-09-13  Michael Kifer  <kifer@cs.sunysb.edu>

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

diff -r 3b40423b9355 -r 25dc021070bc lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 13 15:46:23 2001 +0000
+++ b/lisp/ChangeLog	Fri Sep 14 03:34:31 2001 +0000
@@ -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 -r 3b40423b9355 -r 25dc021070bc lisp/emulation/viper-cmd.el
--- a/lisp/emulation/viper-cmd.el	Thu Sep 13 15:46:23 2001 +0000
+++ b/lisp/emulation/viper-cmd.el	Fri Sep 14 03:34:31 2001 +0000
@@ -950,7 +950,7 @@
 (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 @@
   ))
 
 (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))