Lines Matching defs:regexp
67 ;; M-r comint-previous-matching-input Previous input matching a regexp
114 ;; comint-prompt-regexp string comint-bol uses to match prompt
159 (defvar comint-prompt-regexp "^"
164 `comint-use-prompt-regexp' is non-nil.
339 (defcustom comint-password-prompt-regexp
347 :type 'regexp
357 text matching `comint-prompt-regexp', depending on the value of
358 `comint-use-prompt-regexp'.")
409 ;; Note: If it is decided to purge comint-prompt-regexp from the source
412 (defcustom comint-use-prompt-regexp nil
413 "*If non-nil, use `comint-prompt-regexp' to recognize prompts.
423 (define-obsolete-variable-alias 'comint-use-prompt-regexp-instead-of-fields
424 'comint-use-prompt-regexp "22.1")
593 `comint-prompt-regexp' to the appropriate regular expression.
622 (make-local-variable 'comint-prompt-regexp) ; Don't set; default
1007 (defun comint-regexp-arg (prompt)
1008 "Return list of regexp and prefix arg using PROMPT."
1011 (regexp (read-from-minibuffer prompt nil nil nil
1013 (list (if (string-equal regexp "")
1016 regexp)
1081 (defun comint-previous-matching-input-string (regexp arg)
1084 (let* ((pos (comint-previous-matching-input-string-position regexp arg)))
1087 (defun comint-previous-matching-input-string-position (regexp arg &optional start)
1105 (not (string-match regexp (ring-ref comint-input-ring n))))
1111 (if (string-match regexp (ring-ref comint-input-ring n))
1122 (defun comint-previous-matching-input (regexp n)
1127 (interactive (comint-regexp-arg "Previous input matching (regexp): "))
1129 (let ((pos (comint-previous-matching-input-string-position regexp n)))
1142 (defun comint-next-matching-input (regexp n)
1147 (interactive (comint-regexp-arg "Next input matching (regexp): "))
1148 (comint-previous-matching-input regexp (- n)))
1166 (concat "^" (regexp-quote comint-matching-input-from-input-string))
1201 (if comint-use-prompt-regexp
1202 ;; Use comint-prompt-regexp
1205 (looking-at (concat comint-prompt-regexp "!\\|\\^")))
1277 (concat pref (regexp-quote exp)) 1))))
1322 (defun comint-how-many-region (regexp beg end)
1328 (while (re-search-forward regexp end t)
1488 If `comint-use-prompt-regexp' is nil, then
1491 If `comint-use-prompt-regexp' is non-nil, then
1493 regexp `comint-prompt-regexp' removed.
1502 `comint-input-filter' returns nil if the input matches input-filter-regexp,
1553 (unless comint-use-prompt-regexp
1564 (unless (or no-newline comint-use-prompt-regexp)
1786 (unless comint-use-prompt-regexp
1922 If `comint-use-prompt-regexp' is nil, then either
1925 If `comint-use-prompt-regexp' is non-nil, then return
1926 the current line with any initial string matching the regexp
1927 `comint-prompt-regexp' removed."
1946 "Skip past the text matching regexp `comint-prompt-regexp'.
1948 (if (and (looking-at comint-prompt-regexp)
1969 If `comint-use-prompt-regexp' is non-nil, then the prompt skip is done by
1970 skipping text matching the regular expression `comint-prompt-regexp',
1972 (if comint-use-prompt-regexp
1973 ;; Use comint-prompt-regexp
1990 If `comint-use-prompt-regexp' is non-nil, then the prompt skip is done
1991 by skipping text matching the regular expression `comint-prompt-regexp',
2034 `comint-password-prompt-regexp'.
2037 (when (string-match comint-password-prompt-regexp string)
2131 (cond (comint-use-prompt-regexp
2226 (defun comint-backward-matching-input (regexp n)
2228 If `comint-use-prompt-regexp' is non-nil, then input fields are identified
2229 by lines that match `comint-prompt-regexp'.
2233 (interactive (comint-regexp-arg "Backward input matching (regexp): "))
2234 (if comint-use-prompt-regexp
2235 ;; Use comint-prompt-regexp
2236 (let* ((re (concat comint-prompt-regexp ".*" regexp))
2250 (unless (re-search-backward regexp nil t dir)
2258 (defun comint-forward-matching-input (regexp n)
2260 If `comint-use-prompt-regexp' is non-nil, then input fields are identified
2261 by lines that match `comint-prompt-regexp'.
2265 (interactive (comint-regexp-arg "Forward input matching (regexp): "))
2266 (comint-backward-matching-input regexp (- n)))
2271 If `comint-use-prompt-regexp' is nil, then this means the beginning of
2273 text matching `comint-prompt-regexp'."
2275 (if comint-use-prompt-regexp
2276 ;; Use comint-prompt-regexp
2277 (let ((paragraph-start comint-prompt-regexp))
2308 If `comint-use-prompt-regexp' is nil, then this means the beginning of
2310 text matching `comint-prompt-regexp'."
2765 (let ((regexp
2770 (while (string-match regexp filename i)
3108 ;; or buffers, until it sees a regexp that tells it to stop (by default,
3109 ;; this is the prompt for the interpreter, `comint-prompt-regexp'). When it
3110 ;; sees the stop regexp, it restores the old filter functions, and runs
3116 ;; NOTE: It is EXTREMELY important that `comint-prompt-regexp' be set to the
3117 ;; correct prompt for your interpreter, or that you supply a regexp that says
3123 ;; XXX: This doesn't work so well unless `comint-prompt-regexp' is set;
3127 ;; Fixme: look for appropriate fields, rather than regexp, if
3128 ;; `comint-use-prompt-regexp' is true.
3160 (defvar comint-redirect-finished-regexp nil
3162 When the redirection filter function is given output that matches this regexp,
3165 (defvar comint-redirect-insert-matching-regexp nil
3167 More precisely, the text that matches `comint-redirect-finished-regexp'
3183 regular expression `comint-redirect-finished-regexp' that controls
3206 finished-regexp
3228 (make-local-variable 'comint-redirect-finished-regexp)
3229 (setq comint-redirect-finished-regexp finished-regexp)
3305 ;; Clobber `comint-redirect-finished-regexp'
3306 (or comint-redirect-insert-matching-regexp
3307 (and (string-match comint-redirect-finished-regexp filtered-input-string)
3330 (and (string-match comint-redirect-finished-regexp input-string)
3374 (or (re-search-backward comint-prompt-regexp nil t)
3375 (error "No prompt found or `comint-prompt-regexp' not set properly"))))
3386 comint-prompt-regexp
3416 (defun comint-redirect-results-list (command regexp regexp-group)
3422 command regexp regexp-group))
3425 (defun comint-redirect-results-list-from-process (process command regexp regexp-group)
3446 (while (re-search-forward regexp nil t)
3449 (match-beginning regexp-group)
3450 (match-end regexp-group))
3476 ;; shell-prompt-pattern comint-prompt-regexp
3511 ;; (comint-{prompt-regexp, input-filter, input-filter-functions,
3529 ;; (setq comint-prompt-regexp shell-prompt-pattern)