Function: comint-regexp-arg

comint-regexp-arg is a byte-compiled function defined in comint.el.gz.

Signature

(comint-regexp-arg PROMPT)

Documentation

Return list of regexp and prefix arg using PROMPT.

Source Code

;; Defined in /usr/src/emacs/lisp/comint.el.gz
(defun comint-regexp-arg (prompt)
  "Return list of regexp and prefix arg using PROMPT."
  (let* (;; Don't clobber this.
	 (last-command last-command)
	 (regexp (read-from-minibuffer prompt nil nil nil
				       'minibuffer-history-search-history)))
    ;; If the user didn't enter anything, nothing is added to m-h-s-h.
    ;; Use the previous search regexp, if there is one.
    (list (if (string-equal regexp "")
              (or (car minibuffer-history-search-history)
                  regexp)
	    regexp)
	  (prefix-numeric-value current-prefix-arg))))