Mercurial > emacs
changeset 99789:125a6fd7c956
2008-11-22 Michael Kifer <kifer@cs.stonybrook.edu>
* viper.el: date change.
* viper-cmd.el (viper-envelop-ESC-key):
viper-translate-all-ESC-keysequences is now a function.
* viper-init (viper-translate-all-ESC-keysequences): make this variable
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sat, 22 Nov 2008 06:29:09 +0000 |
| parents | 2de5937e4473 |
| children | 1714afb5ddc4 |
| files | lisp/ChangeLog lisp/emulation/viper-cmd.el lisp/emulation/viper-init.el lisp/emulation/viper.el |
| diffstat | 4 files changed, 15 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 22 05:23:42 2008 +0000 +++ b/lisp/ChangeLog Sat Nov 22 06:29:09 2008 +0000 @@ -1,3 +1,12 @@ +2008-11-22 Michael Kifer <kifer@cs.stonybrook.edu> + + * viper.el: date change. + + * viper-cmd.el (viper-envelop-ESC-key): + viper-translate-all-ESC-keysequences is now a function. + + * viper-init (viper-translate-all-ESC-keysequences): make this variable + 2008-11-22 Stefan Monnier <monnier@iro.umontreal.ca> * vc-hooks.el (vc-follow-link, vc-find-file-hook):
--- a/lisp/emulation/viper-cmd.el Sat Nov 22 05:23:42 2008 +0000 +++ b/lisp/emulation/viper-cmd.el Sat Nov 22 06:29:09 2008 +0000 @@ -1046,7 +1046,7 @@ (let* ((first-key (elt keyseq 0)) (key-mod (event-modifiers first-key))) (cond ((and (viper-ESC-event-p first-key) - (not viper-translate-all-ESC-keysequences)) + (not (viper-translate-all-ESC-keysequences))) ;; put keys following ESC on the unread list ;; and return ESC as the key-sequence (viper-set-unread-command-events (viper-subseq keyseq 1))
--- a/lisp/emulation/viper-init.el Sat Nov 22 05:23:42 2008 +0000 +++ b/lisp/emulation/viper-init.el Sat Nov 22 06:29:09 2008 +0000 @@ -525,18 +525,10 @@ :type 'integer :group 'viper-misc) -(defcustom viper-translate-all-ESC-keysequences (not (viper-window-display-p)) - "Allow translation of all key sequences into commands. -Normally, Viper lets Emacs translate only those ESC key sequences that are -defined in the low-level key-translation-map or function-key-map, such as those -emitted by the arrow and function keys. Other sequences, e.g., \\e/, are -treated as ESC command followed by a `/'. This is done for people who type fast -and tend to hit other characters right after they hit ESC. Other people like -Emacs to translate ESC sequences all the time. -The default is to translate all sequences only when using a dumb terminal. -This permits you to use ESC as a meta key in insert mode." - :type 'boolean - :group 'viper-misc) +;; This function determines if ESC key sequences are to be translated into +;; commands. +(defun viper-translate-all-ESC-keysequences () + (not (viper-window-display-p))) ;; Modes and related variables
--- a/lisp/emulation/viper.el Sat Nov 22 05:23:42 2008 +0000 +++ b/lisp/emulation/viper.el Sat Nov 22 06:29:09 2008 +0000 @@ -14,7 +14,7 @@ ;; filed in the Emacs bug reporting system against this file, a copy ;; of the bug report be sent to the maintainer's email address. -(defconst viper-version "3.14 of November 16, 2008" +(defconst viper-version "3.14 of November 22, 2008" "The current version of Viper") ;; This file is part of GNU Emacs.