Lines Matching +defs:suffix +defs:string
41 ;; for bindings active during `isearch-edit-string'.
48 ;; the minibuffer to edit the string. This gives you a chance to
49 ;; modify the search string before executing the search. There are
54 ;; Exiting immediately from isearch uses isearch-edit-string instead
108 Actually, `isearch-edit-string' is called to let you enter the search
109 string, and RET terminates editing and does a nonincremental search."
180 "List of search string sequences.")
182 "List of regular expression search string sequences.")
194 "Index in `search-ring' of last string reused.
197 "Index in `regexp-search-ring' of last string reused.
202 Default value, nil, means edit the string instead."
233 string is highlighted lazily (see `lazy-highlight-initial-delay'
328 (define-key map (make-string 1 i) 'isearch-other-control-char)
331 ;; Single-byte printing chars extend the search string by default.
343 (define-key map (char-to-string meta-prefix-char) meta-map)
408 (define-key map "\M-e" 'isearch-edit-string)
430 ;; and bound locally while editing the search string.
435 (defvar isearch-hidden nil) ; Non-nil if the string exists but is invisible.
443 (defvar isearch-string "") ; The current search string.
444 (defvar isearch-message "") ; text-char-description version of isearch-string
456 ; case in the search string is ignored.
486 ;; New value of isearch-forward after isearch-edit-string.
521 As you type characters, they add to the search string and are found.
524 Type \\[isearch-delete-char] to cancel last input item from end of search string.
530 onto the end of the search string, and search for it.
531 Type \\[isearch-del-char] to delete character from end of search string.
533 string and search for it.
534 Type \\[isearch-yank-line] to yank rest of line onto end of search string\
536 Type \\[isearch-yank-kill] to yank the last string of killed text.
544 If you try to exit with the search string still empty, it invokes
547 Type \\[isearch-query-replace] to start `query-replace' with string to\
548 replace from last search string.
550 with string to replace from last search string.
554 Type \\[isearch-edit-string] to edit the search string in the minibuffer.
560 Type \\[isearch-complete] to complete the search string using the search ring.
586 With a prefix argument, do a regular string search instead.
608 With a prefix argument, do a regular string search instead.
643 isearch-string ""
765 For going to the minibuffer to edit the search string,
769 (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
781 ;; If NOPUSH is non-nil, we don't push the string on the search ring.
817 (if (and (> (length isearch-string) 0) (not nopush))
819 (isearch-update-ring isearch-string isearch-regexp))
835 (defun isearch-update-ring (string &optional regexp)
840 string
856 (defsubst isearch-string-state (frame)
857 "Return the search string in FRAME."
860 "Return the search string to display to the user in FRAME."
895 (setq isearch-string (isearch-string-state cmd)
915 (cons (vector isearch-string isearch-message (point)
932 nonincremental search instead via `isearch-edit-string'."
935 (= 0 (length isearch-string)))
937 (isearch-edit-string)))
942 (defun isearch-edit-string ()
943 "Edit the search string in the minibuffer.
946 \\[exit-minibuffer] to resume incremental searching with the edited string.
950 \\[isearch-complete-edit] to complete the search string using the search ring.
966 ;; isearch-string -message and -forward are not bound
968 (isearch-new-string isearch-string)
1020 ;; for a string is the yank-word character, then go into
1034 (setq isearch-new-string
1037 isearch-string
1043 isearch-new-string "")))
1052 (setq isearch-string isearch-new-string
1057 ;; Empty isearch-string means use default.
1058 (if (= 0 (length isearch-string))
1059 (setq isearch-string (or (car (if isearch-regexp
1066 isearch-string ""))
1067 ;; This used to set the last search string,
1069 ;; Only the string actually used should be saved.
1082 ;; The search done message is confusing when the string
1084 (if (equal isearch-string "")
1140 (if (equal isearch-string "")
1141 ;; If search string is empty, use last one.
1143 (setq isearch-error "No previous search string")
1144 (setq isearch-string
1150 isearch-string "")
1166 (if (equal isearch-string "")
1172 ;; an empty string, ensure we advance.
1219 "Start query-replace with string to replace from last search string."
1232 (cons isearch-string
1235 isearch-string
1237 isearch-string
1245 "Start query-replace-regexp with string to replace from last search string."
1261 "Delete character from end of search string and search again.
1262 If search string is empty, just beep."
1264 (if (= 0 (length isearch-string))
1266 (setq isearch-string (substring isearch-string 0 (- (or arg 1)))
1268 isearch-string "")
1273 (defun isearch-yank-string (string)
1274 "Pull STRING into search string."
1275 ;; Downcase the string if not supposed to case-fold yanked strings.
1278 (setq string (downcase string)))
1279 (if isearch-regexp (setq string (regexp-quote string)))
1280 (setq isearch-string (concat isearch-string string)
1284 string ""))
1290 "Pull string from kill ring into search string."
1292 (isearch-yank-string (current-kill 0)))
1295 "Pull current X selection into search string."
1297 (isearch-yank-string (x-get-selection)))
1321 (isearch-yank-string
1328 "Pull next character from buffer into end of search string in minibuffer."
1339 "Pull next character from buffer into search string."
1344 "Pull next character or word from buffer into search string."
1354 "Pull next word from buffer into search string."
1359 "Pull rest of line from buffer into search string."
1369 ;; addition of characters which make isearch-string valid
1371 ;; If the string was found but was completely invisible,
1376 ;; matched, in the string following point.
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))))
1415 ;; + needs no special handling because the string must match at least once.
1419 (= (mod (- (length str) (string-match "\\\\*\\'" str)) 2) 1))
1436 (when (and isearch-regexp (eq (not (isearch-backslash isearch-string))
1457 (let* ((string (isearch-string-state frame))
1458 (lchar (aref string (1- (length string)))))
1465 (isearch-string-state (car previous)))
1509 ;; search string to be scrolled out of the current window. If a command
1564 (defun isearch-string-out-of-window (isearch-point)
1565 "Test whether the search string is currently outside of the window.
1567 together with as much of the search string as will fit; the symbol
1574 start end) ; start and end of search string in buffer
1589 "Scroll the window to bring the search string back into view.
1591 search string is above the top of the window, nil when it is beneath
1613 Return the key sequence as a string/vector."
1640 `edit', the search string is edited in the minibuffer and the meta
1641 character is unread so that it applies to editing the string.
1706 (isearch-edit-string))
1720 (let ((ab-bel (isearch-string-out-of-window isearch-point)))
1761 (isearch-process-search-string key key)))))
1771 (if (subregexp-context-p isearch-string (length isearch-string))
1772 (isearch-process-search-string "[ ]" " ")
1787 "Add this ordinary printing character to the search string and search."
1811 ;; Append the char to the search string, update the message and re-search.
1812 (isearch-process-search-string
1813 (char-to-string char)
1815 (char-to-string char)
1818 (defun isearch-process-search-string (string message)
1819 (setq isearch-string (concat isearch-string string)
1842 (setq isearch-string (nth yank-pointer ring)
1844 isearch-string "")))))
1853 (isearch-edit-string)
1858 "Advance to the next search string in the ring."
1864 "Retreat to the previous search string in the ring."
1873 (completion (try-completion isearch-string ring)))
1876 ;; isearch-string stays the same
1878 ((or completion ; not nil, must be a string
1879 (= 0 (length isearch-string))) ; shouldn't have to say this
1880 (if (equal completion isearch-string) ;; no extension?
1885 (all-completions isearch-string ring))))
1888 (setq isearch-string completion))))
1894 "Complete the search string from the strings on the search ring.
1895 The completed string is then editable in the minibuffer.
1901 isearch-string ""))
1902 (isearch-edit-string))
1910 (setq isearch-string (field-string))
1914 (insert isearch-string))))
1918 ;; Message string
1921 ;; Generate and print the message string.
1926 (string-match " +$" isearch-message))
1932 (isearch-message-suffix c-q-hack ellipsis)
1945 (progn (re-search-forward isearch-string (point) t)
1970 (defun isearch-message-suffix (&optional c-q-hack ellipsis)
1999 (defun isearch-search-string (string bound noerror)
2004 (len (length string))
2006 (setq pos1 (save-excursion (funcall func string bound noerror)))
2008 (> (string-bytes string) len))
2011 (let ((x (aref translation-table-for-input (aref string i))))
2013 (or translated (setq translated (copy-sequence string)))
2030 ;; Do the search with the current search string.
2034 (isearch-no-upper-case-p isearch-string isearch-regexp)))
2044 (isearch-search-string isearch-string nil t))
2064 (if (string-match
2234 (defun isearch-no-upper-case-p (string regexp-flag)
2238 (let (quote-flag (i 0) (len (length string)) found)
2240 (let ((char (aref string i)))
2251 (and regexp-flag (string-match "\\[:\\(upp\\|low\\)er:]" string)
2254 (string-match (substring string 0 (match-beginning 0))
2266 (t (char-to-string c))))
2300 ;; When active, *every* match for the current search string is
2312 ;; the search string or window-start changes;
2313 ;; - `isearch-string' is expected to contain the current search
2314 ;; string as entered by the user;
2320 ;; iff `isearch-string' is an invalid regexp.
2329 (defvar isearch-lazy-highlight-last-string nil)
2360 search string to change or the window to scroll). It is also used
2364 (or (not (equal isearch-string
2365 isearch-lazy-highlight-last-string))
2386 isearch-lazy-highlight-last-string isearch-string
2391 (unless (equal isearch-string "")
2403 (isearch-search-string
2404 isearch-lazy-highlight-last-string
2487 SEARCH is the string or regexp searched for.
2494 (setq isearch-string search