Lines Matching +defs:kill +defs:ring +defs:yank +defs:pointer
47 ;; The search ring and completion commands automatically put you in
177 ;; Search ring.
179 (defvar search-ring nil
181 (defvar regexp-search-ring nil
184 (defcustom search-ring-max 16
185 "*Maximum length of search ring before oldest elements are thrown away."
188 (defcustom regexp-search-ring-max 16
189 "*Maximum length of regexp search ring before oldest elements are thrown away."
193 (defvar search-ring-yank-pointer nil
194 "Index in `search-ring' of last string reused.
196 (defvar regexp-search-ring-yank-pointer nil
197 "Index in `regexp-search-ring' of last string reused.
200 (defcustom search-ring-update nil
201 "*Non-nil if advancing or retreating in the search ring should cause search.
371 (define-key map "\C-w" 'isearch-yank-word-or-char)
373 (define-key map "\M-\C-y" 'isearch-yank-char)
374 (define-key map "\C-y" 'isearch-yank-line)
380 (define-key map "\M-n" 'isearch-ring-advance)
381 (define-key map "\M-p" 'isearch-ring-retreat)
382 (define-key map "\M-y" 'isearch-yank-kill)
423 (define-key map "\C-f" 'isearch-yank-char-in-minibuffer)
424 (define-key map [right] 'isearch-yank-char-in-minibuffer)
472 ;; Flag to indicate a yank occurred, so don't move the cursor.
473 (defvar isearch-yank-flag nil)
529 Type \\[isearch-yank-word-or-char] to yank next word or character in buffer
532 Type \\[isearch-yank-char] to yank char from buffer onto end of search\
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.
556 Also supported is a search ring of the previous 16 search strings.
557 Type \\[isearch-ring-advance] to search for the next item in the search ring.
558 Type \\[isearch-ring-retreat] to search for the previous item in the search\
559 ring.
560 Type \\[isearch-complete] to complete the search string using the search ring.
650 isearch-yank-flag nil
662 search-ring-yank-pointer nil
666 regexp-search-ring-yank-pointer nil
754 isearch-yank-flag nil)
781 ;; If NOPUSH is non-nil, we don't push the string on the search ring.
802 (kill-local-variable 'input-method-function))
818 ;; Update the ring data.
819 (isearch-update-ring isearch-string isearch-regexp))
835 (defun isearch-update-ring (string &optional regexp)
836 "Add STRING to the beginning of the search ring.
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)))
950 \\[isearch-complete-edit] to complete the search string using the search ring.
952 If first char entered is \\[isearch-yank-word-or-char], then do word search instead."
980 (isearch-yank-flag isearch-yank-flag)
1020 ;; for a string is the yank-word character, then go into
1027 '(isearch-yank-word
1028 isearch-yank-word-or-char))
1039 (if isearch-regexp 'regexp-search-ring 'search-ring)
1060 regexp-search-ring
1061 search-ring))
1142 (if (null (if isearch-regexp regexp-search-ring search-ring))
1146 (car regexp-search-ring)
1147 (car search-ring))
1270 isearch-yank-flag t))
1273 (defun isearch-yank-string (string)
1286 isearch-yank-flag t)
1289 (defun isearch-yank-kill ()
1290 "Pull string from kill ring into search string."
1292 (isearch-yank-string (current-kill 0)))
1294 (defun isearch-yank-x-selection ()
1297 (isearch-yank-string (x-get-selection)))
1302 For a click in the echo area, invoke `isearch-yank-x-selection'.
1311 (isearch-yank-x-selection)
1315 (defun isearch-yank-internal (jumpform)
1321 (isearch-yank-string
1327 (defun isearch-yank-char-in-minibuffer (&optional arg)
1338 (defun isearch-yank-char (&optional arg)
1341 (isearch-yank-internal (lambda () (forward-char arg) (point))))
1343 (defun isearch-yank-word-or-char ()
1346 (isearch-yank-internal
1353 (defun isearch-yank-word ()
1356 (isearch-yank-internal (lambda () (forward-word 1) (point))))
1358 (defun isearch-yank-line ()
1361 (isearch-yank-internal
1388 (or isearch-yank-flag
1827 (defun isearch-ring-adjust1 (advance)
1828 ;; Helper for isearch-ring-adjust
1829 (let* ((ring (if isearch-regexp regexp-search-ring search-ring))
1830 (length (length ring))
1831 (yank-pointer-name (if isearch-regexp
1832 'regexp-search-ring-yank-pointer
1833 'search-ring-yank-pointer))
1834 (yank-pointer (eval yank-pointer-name)))
1837 (set yank-pointer-name
1838 (setq yank-pointer
1839 (mod (+ (or yank-pointer 0)
1842 (setq isearch-string (nth yank-pointer ring)
1846 (defun isearch-ring-adjust (advance)
1847 ;; Helper for isearch-ring-advance and isearch-ring-retreat
1848 (isearch-ring-adjust1 advance)
1849 (if search-ring-update
1857 (defun isearch-ring-advance ()
1858 "Advance to the next search string in the ring."
1861 (isearch-ring-adjust 'advance))
1863 (defun isearch-ring-retreat ()
1864 "Retreat to the previous search string in the ring."
1866 (isearch-ring-adjust nil))
1871 (let* ((ring (if isearch-regexp regexp-search-ring search-ring))
1873 (completion (try-completion isearch-string ring)))
1885 (all-completions isearch-string ring))))
1894 "Complete the search string from the strings on the search ring.
2377 (lazy-highlight-cleanup t) ;kill old loop & remove overlays