Function: viper-if-string

viper-if-string is a byte-compiled function defined in viper-cmd.el.gz.

Signature

(viper-if-string PROMPT)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-cmd.el.gz
(defun viper-if-string (prompt)
  (if (memq viper-intermediate-command
	    '(viper-command-argument viper-digit-argument viper-repeat))
      (setq viper-this-command-keys (this-command-keys)))
  (let* ((keymap (let ((keymap (copy-keymap minibuffer-local-map)))
                   (define-key keymap [(control ?s)]
                     #'viper-insert-isearch-string)
                   keymap))
         (s (viper-read-string-with-history
	    prompt
	    nil ; no initial
	    'viper-search-history
             (car viper-search-history)
             keymap)))
    (if (not (string= s ""))
	(setq viper-s-string s))))