Lines Matching defs:regexp
113 (defcustom search-whitespace-regexp "\\s-+"
116 When you put a space or spaces in the incremental regexp, it stands for
117 this, unless it is inside of a regexp construct such as [...] or *, + or ?.
124 regexp)
181 (defvar regexp-search-ring nil
188 (defcustom regexp-search-ring-max 16
189 "*Maximum length of regexp search ring before oldest elements are thrown away."
196 (defvar regexp-search-ring-yank-pointer nil
197 "Index in `regexp-search-ring' of last string reused.
351 ;; combinations can be used to repeat regexp isearches that can
407 (define-key map "\M-r" 'isearch-toggle-regexp)
411 (define-key map [?\C-\M-%] 'isearch-query-replace-regexp)
433 (defvar isearch-regexp nil) ; Searching for a regexp.
510 (define-key esc-map "\C-s" 'isearch-forward-regexp)
512 (define-key esc-map "\C-r" 'isearch-backward-regexp)
516 (defun isearch-forward (&optional regexp-p no-recursive-edit)
549 Type \\[isearch-query-replace-regexp] to start `query-replace-regexp'\
553 Type \\[isearch-toggle-regexp] to toggle regular-expression mode.
581 (isearch-mode t (not (null regexp-p)) nil (not no-recursive-edit)))
583 (defun isearch-forward-regexp (&optional not-regexp no-recursive-edit)
588 is treated as a regexp. See \\[isearch-forward] for more info.
590 In regexp incremental searches, a space or spaces normally matches
591 any whitespace (the variable `search-whitespace-regexp' controls
595 (isearch-mode t (null not-regexp) nil (not no-recursive-edit)))
597 (defun isearch-backward (&optional regexp-p no-recursive-edit)
603 (isearch-mode nil (not (null regexp-p)) nil (not no-recursive-edit)))
605 (defun isearch-backward-regexp (&optional not-regexp no-recursive-edit)
610 is treated as a regexp. See \\[isearch-forward] for more info."
612 (isearch-mode nil (null not-regexp) nil (not no-recursive-edit)))
627 ;; isearch-forward-regexp isearch-backward-regexp)
631 (defun isearch-mode (forward &optional regexp op-fun recursive-edit word-p)
638 isearch-regexp regexp
666 regexp-search-ring-yank-pointer nil
692 (setq isearch-mode " Isearch") ;; forward? regexp?
769 (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
819 (isearch-update-ring isearch-string isearch-regexp))
835 (defun isearch-update-ring (string &optional regexp)
837 REGEXP if non-nil says use the regexp search ring."
839 (if regexp 'regexp-search-ring 'search-ring)
841 (if regexp regexp-search-ring-max search-ring-max)))
878 "Return the regexp error message in FRAME, or nil if its regexp is valid."
973 (isearch-regexp isearch-regexp)
1023 ;; Word search does not apply (yet) to regexp searches,
1039 (if isearch-regexp 'regexp-search-ring 'search-ring)
1046 isearch-regexp
1059 (setq isearch-string (or (car (if isearch-regexp
1060 regexp-search-ring
1130 ;; If search is failing, or has an incomplete regexp,
1142 (if (null (if isearch-regexp regexp-search-ring search-ring))
1145 (if isearch-regexp
1146 (car regexp-search-ring)
1164 (setq isearch-barrier (point)) ; For subsequent \| if regexp.
1195 (defun isearch-toggle-regexp ()
1196 "Toggle regexp searching on or off."
1199 (setq isearch-regexp (not isearch-regexp))
1200 (if isearch-regexp (setq isearch-word nil))
1218 (defun isearch-query-replace (&optional regexp-flag)
1222 (if regexp-flag (setq isearch-regexp t))
1238 (if isearch-regexp "Query replace regexp" "Query replace")
1239 isearch-regexp)
1240 t isearch-regexp isearch-word nil nil
1244 (defun isearch-query-replace-regexp ()
1245 "Start query-replace-regexp with string to replace from last search string."
1279 (if isearch-regexp (setq string (regexp-quote string)))
1368 ;; Unsuccessful regexp search may become successful by
1370 isearch-regexp
1384 (isearch-no-upper-case-p isearch-string isearch-regexp)))
1385 (looking-at (if isearch-regexp isearch-string
1386 (regexp-quote isearch-string))))
1397 (isearch-no-upper-case-p isearch-string isearch-regexp))))
1398 ;; Not regexp, not reverse, or no match at point.
1411 ;; *, ?, }, and | chars can make a regexp more liberal.
1412 ;; They can make a regexp match sooner or make it succeed instead of failing.
1422 "Return point to previous successful match to allow regexp liberalization.
1430 Do nothing if regexp has recently been invalid unless optional
1436 (when (and isearch-regexp (eq (not (isearch-backslash isearch-string))
1449 ;; Walk down the stack looking for a valid regexp (as of course only
1461 ;; operators at the beginning of the regexp not
1470 ;; `stack' now refers the most recent valid regexp that is not at
1770 (if (and isearch-regexp (= char ?\s))
1829 (let* ((ring (if isearch-regexp regexp-search-ring search-ring))
1831 (yank-pointer-name (if isearch-regexp
1832 'regexp-search-ring-yank-pointer
1871 (let* ((ring (if isearch-regexp regexp-search-ring search-ring))
1940 ;; If about to search, and previous search regexp was invalid,
1960 (if isearch-regexp "regexp " "")
1994 (isearch-regexp
2034 (isearch-no-upper-case-p isearch-string isearch-regexp)))
2039 (search-spaces-regexp search-whitespace-regexp)
2062 (invalid-regexp
2074 ;; stack overflow in regexp search.
2234 (defun isearch-no-upper-case-p (string regexp-flag)
2237 since they have special meaning in a regexp."
2241 (if (and regexp-flag (eq char ?\\))
2251 (and regexp-flag (string-match "\\[:\\(upp\\|low\\)er:]" string)
2257 (invalid-regexp
2316 ;; `isearch-word' and `isearch-regexp';
2320 ;; iff `isearch-string' is an invalid regexp.
2334 (defvar isearch-lazy-highlight-regexp nil)
2335 (defvar isearch-lazy-highlight-space-regexp nil)
2370 (not (eq isearch-lazy-highlight-regexp
2371 isearch-regexp))
2388 isearch-lazy-highlight-regexp isearch-regexp
2390 isearch-lazy-highlight-space-regexp search-whitespace-regexp)
2400 (isearch-regexp isearch-lazy-highlight-regexp)
2401 (search-spaces-regexp isearch-lazy-highlight-space-regexp))
2485 (defun isearch-resume (search regexp word forward message case-fold)
2487 SEARCH is the string or regexp searched for.
2488 REGEXP non-nil means the resumed search was a regexp search.
2493 (isearch-mode forward regexp nil nil word)