Function: viper-setup-ESC-to-escape

viper-setup-ESC-to-escape is a byte-compiled function defined in viper.el.gz.

Signature

(viper-setup-ESC-to-escape ENABLE)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper.el.gz
(defun viper-setup-ESC-to-escape (enable)
  (if enable
      (add-hook 'tty-setup-hook #'viper-catch-tty-ESC)
    (remove-hook 'tty-setup-hook #'viper-catch-tty-ESC))
  (let ((seen ()))
    (dolist (frame (frame-list))
      (let ((terminal (frame-terminal frame)))
        (unless (memq terminal seen)
          (push terminal seen)
          (with-selected-frame frame
            (if enable (viper-catch-tty-ESC) (viper-uncatch-tty-ESC))))))))