Function: comint-search-arg

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

Signature

(comint-search-arg ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/comint.el.gz
(defun comint-search-arg (arg)
  ;; First make sure there is a ring and that we are after the process mark
  (cond ((not (comint-after-pmark-p))
	 (user-error "Not at command line"))
	((or (null comint-input-ring)
	     (ring-empty-p comint-input-ring))
	 (user-error "Empty input ring"))
	((zerop arg)
	 ;; arg of zero resets search from beginning, and uses arg of 1
	 (setq comint-input-ring-index nil)
	 1)
	(t
	 arg)))