[Emacs-diffs] Changes to emacs/lisp/emulation/viper-keym.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   08/11/16 04:55:48

Index: emulation/viper-keym.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-keym.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- emulation/viper-keym.el     6 May 2008 03:28:00 -0000       1.52
+++ emulation/viper-keym.el     16 Nov 2008 04:55:47 -0000      1.53
@@ -193,36 +193,8 @@
   :type 'string
   :group 'viper)
 
-(defcustom viper-ESC-key (if (viper-window-display-p) [(escape)] "\e")
-  "Key used to ESC.
-Enter as a sexp. Examples: \"\\e\", [(escape)].
-If running in a terminal, [(escape)] is not understood, so must use \"\\e\"."
-  :type 'sexp
-  :group 'viper
-  :set (lambda (symbol value)
-        (let ((old-value (if (boundp 'viper-ESC-key)
-                             viper-ESC-key
-                           [(escape)])))
-          (mapc
-           (lambda (buf)
-             (save-excursion
-               (set-buffer buf)
-               (when (and (boundp 'viper-insert-intercept-map)
-                          (keymapp viper-insert-intercept-map))
-                 (when old-value
-                   (define-key viper-insert-intercept-map old-value nil))
-                 (define-key
-                   viper-insert-intercept-map value 'viper-intercept-ESC-key))
-               (when (and (boundp 'viper-vi-intercept-map)
-                          (keymapp viper-vi-intercept-map))
-                 (when old-value
-                   (define-key viper-vi-intercept-map old-value nil))
-                 (define-key
-                   viper-vi-intercept-map value 'viper-intercept-ESC-key))
-               ))
-           (buffer-list))
-          (set-default symbol value)
-           )))
+(defvar viper-ESC-key (kbd "ESC")
+  "Key used to ESC.")
 
 
 ;;; Variables used by minor modes