comparison lisp/isearch.el @ 87212:80f24a97ade8

(search-upper-case): Doc fix. (isearch-mode-map): Bind `M-s o' to isearch-occur. (isearch-query-replace): Doc fix. Let-bind search-upper-case to nil. (isearch-query-replace-regexp): Doc fix. (isearch-occur): New function.

87211:c2b1300a87e5

(defcustom search-upper-case 'not-yanks
  "*If non-nil, upper case chars disable case fold searching.
That is, upper and lower case chars must match exactly.
This applies no matter where the chars come from, but does not
apply to chars in regexps that are prefixed with `\\'.
If this value is `not-yanks', yanked text is always downcased."
  :type '(choice (const :tag "off" nil)
		 (const not-yanks)
		 (other :tag "on" t))
  :group 'isearch)

    (define-key map "\M-r" 'isearch-toggle-regexp)
    (define-key map "\M-e" 'isearch-edit-string)

    (define-key map [?\M-%] 'isearch-query-replace)
    (define-key map [?\C-\M-%] 'isearch-query-replace-regexp)

    map)
  "Keymap for `isearch-mode'.")

(defvar minibuffer-local-isearch-map

  (setq isearch-success t isearch-adjusted t)
  (sit-for 1)
  (isearch-update))

(defun isearch-query-replace (&optional regexp-flag)
  "Start query-replace with string to replace from last search string."
  (interactive)
  (barf-if-buffer-read-only)
  (if regexp-flag (setq isearch-regexp t))
  (let ((case-fold-search isearch-case-fold-search))
    (isearch-done)
    (isearch-clean-overlays)
    (if (and isearch-other-end
	     (< isearch-other-end (point))
             (not (and transient-mark-mode mark-active

     t isearch-regexp isearch-word nil nil
     (if (and transient-mark-mode mark-active) (region-beginning))
     (if (and transient-mark-mode mark-active) (region-end)))))

(defun isearch-query-replace-regexp ()
  "Start query-replace-regexp with string to replace from last search string."
  (interactive)
  (isearch-query-replace t))


(defun isearch-delete-char ()
  "Discard last input item and move point back.
If no previous match was done, just beep."

87212:80f24a97ade8

(defcustom search-upper-case 'not-yanks
  "*If non-nil, upper case chars disable case fold searching.
That is, upper and lower case chars must match exactly.
This applies no matter where the chars come from, but does not
apply to chars in regexps that are prefixed with `\\'.
If this value is `not-yanks', text yanked into the search string
in Isearch mode is always downcased."
  :type '(choice (const :tag "off" nil)
		 (const not-yanks)
		 (other :tag "on" t))
  :group 'isearch)

    (define-key map "\M-r" 'isearch-toggle-regexp)
    (define-key map "\M-e" 'isearch-edit-string)

    (define-key map [?\M-%] 'isearch-query-replace)
    (define-key map [?\C-\M-%] 'isearch-query-replace-regexp)
    (define-key map "\M-so" 'isearch-occur)

    map)
  "Keymap for `isearch-mode'.")

(defvar minibuffer-local-isearch-map

  (setq isearch-success t isearch-adjusted t)
  (sit-for 1)
  (isearch-update))

(defun isearch-query-replace (&optional regexp-flag)
  "Start `query-replace' with string to replace from last search string."
  (interactive)
  (barf-if-buffer-read-only)
  (if regexp-flag (setq isearch-regexp t))
  (let ((case-fold-search isearch-case-fold-search)
	;; set `search-upper-case' to nil to not call
	;; `isearch-no-upper-case-p' in `perform-replace'
	(search-upper-case nil))
    (isearch-done)
    (isearch-clean-overlays)
    (if (and isearch-other-end
	     (< isearch-other-end (point))
             (not (and transient-mark-mode mark-active

     t isearch-regexp isearch-word nil nil
     (if (and transient-mark-mode mark-active) (region-beginning))
     (if (and transient-mark-mode mark-active) (region-end)))))

(defun isearch-query-replace-regexp ()
  "Start `query-replace-regexp' with string to replace from last search string."
  (interactive)
  (isearch-query-replace t))

(defun isearch-occur (regexp &optional nlines)
  "Run `occur' with regexp to search from the current search string.
Interactively, REGEXP is the current search regexp or a quoted search
string.  NLINES has the same meaning as in `occur'."
  (interactive
   (list
    (if isearch-regexp isearch-string (regexp-quote isearch-string))
    (if current-prefix-arg (prefix-numeric-value current-prefix-arg))))
  (let ((case-fold-search isearch-case-fold-search)
	;; set `search-upper-case' to nil to not call
	;; `isearch-no-upper-case-p' in `occur-1'
	(search-upper-case nil))
    (occur regexp nlines)))


(defun isearch-delete-char ()
  "Discard last input item and move point back.
If no previous match was done, just beep."