Commit 483e0218 authored by Michael Kifer's avatar Michael Kifer
Browse files

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

	* viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key):
	inhibit quit.
parent 739a80b3
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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment