Lines Matching +defs:delete +defs:selection +defs:mode
1 ;;; isearch.el --- incremental search minor mode
31 ;; For programmed use of isearch-mode, e.g. calling (isearch-forward),
32 ;; isearch-mode behaves modally and does not return until the search
35 ;; The key bindings active within isearch-mode are defined below in
36 ;; `isearch-mode-map' which is given bindings close to the default
37 ;; characters of the original isearch.el. With `isearch-mode',
43 ;; isearch-mode should work even if you switch windows with the mouse,
44 ;; in which case isearch-mode is terminated automatically before the
67 "Incremental search minor mode."
134 See also `reveal-mode' if you want overlays to automatically be opened
157 (defvar isearch-mode-hook nil
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.")
174 "Function to save a function restoring the mode-specific isearch state
306 ;; Define isearch-mode keymap.
308 (defvar isearch-mode-map
313 (error "The initialization of isearch-mode-map must be updated"))
323 ;; Control chars, by default, end isearch mode transparently.
355 (define-key map "\177" 'isearch-delete-char)
377 ;; ;; Instead bind C-h to special help command for isearch-mode.
378 ;; (define-key map "\C-h" 'isearch-mode-help)
390 (define-key map [delete-frame] nil)
404 ;; Some bindings you may want to put in your isearch-mode-hook.
414 "Keymap for `isearch-mode'.")
465 (defvar isearch-slow-terminal-mode nil)
477 ;; It is only set from an optional argument to `isearch-mode'.
480 ;; Is isearch-mode in a recursive edit for modal searching.
499 ;; Minor-mode-alist changes - kind of redundant with the
502 (or (assq 'isearch-mode minor-mode-alist)
503 (nconc minor-mode-alist
504 (list '(isearch-mode isearch-mode))))
506 (defvar isearch-mode nil) ;; Name of the minor mode, if non-nil.
507 (make-variable-buffer-local 'isearch-mode)
514 ;; Entry points to isearch-mode.
520 \\<isearch-mode-map>
522 The following non-printing keys are bound in `isearch-mode-map'.
524 Type \\[isearch-delete-char] to cancel last input item from end of search string.
531 Type \\[isearch-del-char] to delete character from end of search string.
553 Type \\[isearch-toggle-regexp] to toggle regular-expression mode.
571 The above keys, bound in `isearch-mode-map', are often controlled by
581 (isearch-mode t (not (null regexp-p)) nil (not no-recursive-edit)))
595 (isearch-mode t (null not-regexp) nil (not no-recursive-edit)))
603 (isearch-mode nil (not (null regexp-p)) nil (not no-recursive-edit)))
612 (isearch-mode nil (null not-regexp) nil (not no-recursive-edit)))
615 (defun isearch-mode-help ()
622 ;; isearch-mode only sets up incremental search for the minor mode.
623 ;; All the work is done by the isearch-mode commands.
628 ;; "List of commands for which isearch-mode does not recursive-edit.")
631 (defun isearch-mode (forward &optional regexp op-fun recursive-edit word-p)
632 "Start isearch minor mode. Called by `isearch-forward', etc.
634 \\{isearch-mode-map}"
652 isearch-slow-terminal-mode (and (<= baud-rate search-slow-speed)
682 (if isearch-slow-terminal-mode (current-window-configuration) nil))
692 (setq isearch-mode " Isearch") ;; forward? regexp?
693 (force-mode-line-update)
697 (setq overriding-terminal-local-map isearch-mode-map)
699 (run-hooks 'isearch-mode-hook)
704 ;; isearch-mode can be made modal (in the sense of not returning to
722 (if (and isearch-slow-terminal-mode
752 (setq ;; quit-flag nil not for isearch-mode
762 "Exit Isearch mode.
780 ;; Called by all commands that terminate isearch-mode.
799 (setq isearch-mode nil)
804 (force-mode-line-update)
821 (let ((isearch-mode-end-hook-quit (and nopush (not edit))))
822 (run-hooks 'isearch-mode-end-hook))
827 (or (and transient-mark-mode mark-active)
843 ;; Switching buffers should first terminate isearch-mode.
847 ;; ;; First terminate isearch-mode.
890 "Return the function restoring the mode-specific isearch state in FRAME."
926 ;; Commands active while inside of the isearch minor mode.
951 \\<isearch-mode-map>
955 ;; Mainly, isearch-mode must be terminated while editing and then restarted.
989 (isearch-slow-terminal-mode isearch-slow-terminal-mode)
1021 ;; word-search mode. Otherwise unread that character and
1026 (if (memq (lookup-key isearch-mode-map (vector e))
1045 (isearch-mode isearch-forward
1118 "Abort incremental search mode if searching is successful, signaling quit.
1228 (not (and transient-mark-mode mark-active
1241 (if (and transient-mark-mode mark-active) (region-beginning))
1242 (if (and transient-mark-mode mark-active) (region-end)))))
1251 (defun isearch-delete-char ()
1294 (defun isearch-yank-x-selection ()
1295 "Pull current X selection into search string."
1297 (isearch-yank-string (x-get-selection)))
1301 "Handle mouse-2 in Isearch mode.
1302 For a click in the echo area, invoke `isearch-yank-x-selection'.
1311 (isearch-yank-x-selection)
1423 \\<isearch-mode-map>
1484 Scroll-bar or mode-line events are processed appropriately."
1487 ;; If the event was a scroll-bar or mode-line click, the event will have
1503 ;; scrolling within Isearch mode. Alan Mackenzie (acm@muc.de), 2003/2/24
1506 ;; `recenter') should be usable WITHIN Isearch mode. For a command to be
1548 (put 'delete-other-windows 'isearch-scroll t)
1612 "Reread key sequence KEYLIST with Isearch mode's keymap deactivated.
1630 "Process a miscellaneous key sequence in Isearch mode.
1633 mode, either by converting it with `function-key-map', downcasing a
1645 Isearch mode."
1692 (not (memq (lookup-key isearch-mode-map
1733 ;; is in isearch mode. So end the search in that buffer.
1739 ;; buffer is certainly not always in Isearch mode.
1742 ;; being in Isearch mode for now, until someone tells
1747 (if (and (not isearch-mode)
1913 (delete-field)
2294 (delete-overlay isearch-overlay)))
2345 (delete-overlay (car isearch-lazy-highlight-overlays))
2493 (isearch-mode forward regexp nil nil word)