Lines Matching +defs:end +defs:of
10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
31 ;; For programmed use of isearch-mode, e.g. calling (isearch-forward),
37 ;; characters of the original isearch.el. With `isearch-mode',
55 ;; of nonincremental-search, if search-nonincremental-instead is non-nil.
56 ;; The name of this option should probably be changed if we decide to
81 "*Number of lines in slow search display windows.
84 and the value is minus the number of lines."
114 "*If non-nil, regular expression to match a sequence of whitespace chars.
117 this, unless it is inside of a regexp construct such as [...] or *, + or ?.
135 whenever point is in one of them."
146 Ordinarily the text becomes invisible again at the end of the search."
160 (defvar isearch-mode-end-hook nil
162 When these functions are called, `isearch-mode-end-hook-quit'
165 (defvar isearch-mode-end-hook-quit nil
166 "Non-nil while running `isearch-mode-end-hook' if user quit the search.")
170 If nil, move point to the beginning of the buffer for a forward search,
171 or to the end of the buffer for a backward search.")
180 "List of search string sequences.")
182 "List of regular expression search string sequences.")
185 "*Maximum length of search ring before oldest elements are thrown away."
189 "*Maximum length of regexp search ring before oldest elements are thrown away."
194 "Index in `search-ring' of last string reused.
197 "Index in `regexp-search-ring' of last string reused.
278 A value of nil means highlight all matches."
296 "Face for lazy highlighting of matches other than the current one."
313 (error "The initialization of isearch-mode-map must be updated"))
323 ;; Control chars, by default, end isearch mode transparently.
339 ;; keys as well, one full keymap per char of the prefix key. It
438 "Stack of search status sets.
439 Each set is a vector of the form:
444 (defvar isearch-message "") ; text-char-description version of isearch-string
448 (defvar isearch-other-end nil) ; Start (end) of match if forward (backward).
469 ;; The window configuration active at the beginning of the search.
486 ;; New value of isearch-forward after isearch-edit-string.
492 ;; The value of input-method-function when isearch is invoked.
499 ;; Minor-mode-alist changes - kind of redundant with the
506 (defvar isearch-mode nil) ;; Name of the minor mode, if non-nil.
524 Type \\[isearch-delete-char] to cancel last input item from end of search string.
526 Type LFD (C-j) to match end of line.
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.
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.
628 ;; "List of commands for which isearch-mode does not recursive-edit.")
656 isearch-other-end nil
668 ;; Save the original value of `minibuffer-message-timeout', and
704 ;; isearch-mode can be made modal (in the sense of not returning to
741 ;; Keep same hscrolling as at the start of the search when possible
746 (if isearch-other-end
747 (if (< isearch-other-end (point)) ; isearch-forward?
748 (isearch-highlight isearch-other-end (point))
749 (isearch-highlight (point) isearch-other-end))
757 ;; We must prevent the point moving to the end of composition when a
758 ;; part of the composition has just been searched.
794 ;; This has an annoying side effect of clearing the last_modiff
795 ;; field of the window, which can cause unwanted scrolling,
806 ;; If we ended in the middle of some intangible text,
807 ;; move to the further end of that intangible text.
821 (let ((isearch-mode-end-hook-quit (and nopush (not edit))))
822 (run-hooks 'isearch-mode-end-hook))
836 "Add STRING to the beginning of the search ring.
871 (defsubst isearch-other-end-state (frame)
872 "Return the other end of the match in FRAME."
899 isearch-other-end (isearch-other-end-state cmd)
916 isearch-success isearch-forward isearch-other-end
926 ;; Commands active while inside of the isearch minor mode.
956 ;; If there were a way to catch any change of buffer from the minibuffer,
984 ;;; (isearch-other-end isearch-other-end)
985 ;;; Perhaps some of these other variables should be bound for a
1072 ;; Push the state as of before this C-s.
1088 (isearch-abort) ;; outside of let to restore outside global values
1169 (equal (point) isearch-other-end)
1226 (if (and isearch-other-end
1227 (< isearch-other-end (point))
1230 (goto-char isearch-other-end))
1242 (if (and transient-mark-mode mark-active) (region-end)))))
1261 "Delete character from end of search string and search again.
1304 is bound to outside of Isearch."
1320 might return the position of the end of the line."
1323 (and (not isearch-forward) isearch-other-end
1324 (goto-char isearch-other-end))
1328 "Pull next character from buffer into end of search string in minibuffer."
1359 "Pull rest of line from buffer into search string."
1363 (line-end-position (if (eolp) 2 1))))))
1369 ;; addition of characters which make isearch-string valid
1375 ;; the end may cause zero or many more chars to be
1389 (<= (match-end 0)
1394 isearch-other-end (match-end 0))
1399 (if (and isearch-other-end (not isearch-adjusted))
1400 (goto-char (if isearch-forward isearch-other-end
1403 (1+ isearch-other-end)))))
1412 ;; They can make a regexp match sooner or make it succeed instead of failing.
1418 "Return t if STR ends in an odd number of backslashes."
1439 ;; invalid just because of a backslash.
1449 ;; Walk down the stack looking for a valid regexp (as of course only
1460 ;; backslashes. This doesn't handle the case of
1461 ;; operators at the beginning of the regexp not
1473 (let ((last-other-end
1475 (isearch-other-end-state (car previous)))
1478 (max last-other-end isearch-barrier)
1479 (min last-other-end isearch-barrier)))
1509 ;; search string to be scrolled out of the current window. If a command
1520 ;; M-0 C-l will scroll point to the top of the window.
1544 (put 'beginning-of-buffer-other-window 'isearch-scroll t)
1545 (put 'end-of-buffer-other-window 'isearch-scroll t)
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
1571 (w-end (window-end nil t))
1574 start end) ; start and end of search string in buffer
1576 (setq end isearch-point start (or isearch-other-end isearch-point))
1577 (setq start isearch-point end (or isearch-other-end isearch-point)))
1578 (cond ((or (and (>= start w-start) (<= end w-end))
1580 (and (>= isearch-point w-L-1) (< isearch-point w-end)) ; point on Line -1
1591 search string is above the top of the window, nil when it is beneath
1593 (let (start end)
1595 (setq end isearch-point start (or isearch-other-end isearch-point))
1596 (setq start isearch-point end (or isearch-other-end isearch-point)))
1601 (when (>= isearch-point (window-end nil t))
1604 (goto-char end)
1720 (let ((ab-bel (isearch-string-out-of-window isearch-point)))
1733 ;; is in isearch mode. So end the search in that buffer.
2000 ;; Search for the first occurance of STRING or its translation. If
2001 ;; found, move point to the end of the occurance, update
2002 ;; isearch-match-beg and isearch-match-end, and return point.
2050 (= (match-beginning 0) (match-end 0))
2052 (match-beginning 0) (match-end 0))))
2056 (setq isearch-other-end
2057 (if isearch-forward (match-beginning 0) (match-end 0)))))
2107 ;; This is called at the end of isearch. It will open the overlays
2108 ;; that contain the latest match. Obviously in case of a C-g the
2110 ;; in any of these overlays, se we are safe in this case too.
2113 (< (point) (overlay-end ov))))
2145 ;; Verify if the current match is outside of each element of
2148 (defun isearch-close-unnecessary-overlays (begin end)
2152 (if (isearch-intersects-p begin end (overlay-start ov) (overlay-end ov))
2166 (defun isearch-range-invisible (beg end)
2168 (when (/= beg end)
2174 ;; the list of overlays that could be opened
2177 (isearch-close-unnecessary-overlays beg end))
2181 (while (and (< (point) end)
2191 nil end))
2221 (if (>= (point) end)
2249 ;; of [:upper:] or [:lower:] char-class, which indicates
2281 (defun isearch-highlight (beg end)
2285 (move-overlay isearch-overlay beg end (current-buffer))
2287 (setq isearch-overlay (make-overlay beg end))
2305 ;; Highlighting of these additional matches happens in a deferred
2307 ;; isearch of its usual snappy response.
2315 ;; - the type of the current search is expected to be given by
2317 ;; - the direction of the current search is expected to be given by
2325 (defvar isearch-lazy-highlight-end-limit nil)
2327 (defvar isearch-lazy-highlight-end nil)
2332 (defvar isearch-lazy-highlight-window-end nil)
2356 (defun isearch-lazy-highlight-new-loop (&optional beg end)
2374 (not (= (window-end) ; Window may have been split/joined.
2375 isearch-lazy-highlight-window-end))))
2380 isearch-lazy-highlight-end-limit end)
2383 isearch-lazy-highlight-window-end (window-end)
2385 isearch-lazy-highlight-end (point)
2406 (min (or isearch-lazy-highlight-end-limit (point-max))
2409 (window-end)))
2412 isearch-lazy-highlight-end
2418 "Update highlighting of other matches for current search."
2430 isearch-lazy-highlight-end
2440 (me (match-end 0)))
2445 (window-end)))
2449 isearch-lazy-highlight-end
2463 (setq isearch-lazy-highlight-end (point))
2474 (setq isearch-lazy-highlight-end (window-start))
2477 (setq isearch-lazy-highlight-start (window-end))
2478 (goto-char (min (or isearch-lazy-highlight-end-limit (point-max))
2479 (window-end))))))))