Function: vip-read-string

vip-read-string is a byte-compiled function defined in vip.el.gz.

Signature

(vip-read-string PROMPT &optional INIT)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vip.el.gz
(defun vip-read-string (prompt &optional init)
  (setq vip-save-minibuffer-local-map (copy-keymap minibuffer-local-map))
  (define-key minibuffer-local-map "\C-h" #'backward-char)
  (define-key minibuffer-local-map "\C-w" #'backward-word)
  (define-key minibuffer-local-map "\e" #'exit-minibuffer)
  (let (str)
    (condition-case nil
	(setq str (read-string prompt init))
      (quit
       (setq minibuffer-local-map vip-save-minibuffer-local-map)
       (signal 'quit nil)))
    (setq minibuffer-local-map vip-save-minibuffer-local-map)
    str))