From 483e0218fe1acdac8ca03ce6c2e6498d3e859ab8 Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Fri, 14 Sep 2001 03:34:31 +0000 Subject: [PATCH] 2001-09-13 Michael Kifer * viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key): inhibit quit. --- lisp/ChangeLog | 5 +++++ lisp/emulation/viper-cmd.el | 5 +++-- 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 + + * viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key): + inhibit quit. + 2001-09-13 Eli Zaretskii * 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)) -- 2.39.5