Mercurial > emacs
changeset 39288:25dc021070bc
2001-09-13 Michael Kifer <kifer@cs.sunysb.edu>
* viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key):
inhibit quit.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Fri, 14 Sep 2001 03:34:31 +0000 |
| parents | 3b40423b9355 |
| children | c5d6010e15ee |
| files | lisp/ChangeLog lisp/emulation/viper-cmd.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))