comparison lisp/isearch.el @ 30476:26fe451fc5f7

(isearch-resume): New function. (isearch-done): Add something to command-history to resume the search. (isearch-yank-line, isearch-yank-word): Use buffer-substring-no-properties instead of buffer-substring.

30475:fe219c6d2ba2

  ;; We must prevent the point moving to the end of composition when a
  ;; part of the composition has just been searched.
  (setq disable-point-adjustment t))

(defun isearch-done (&optional nopush edit)
  (remove-hook 'mouse-leave-buffer-hook 'isearch-done)
  ;; Called by all commands that terminate isearch-mode.
  ;; If NOPUSH is non-nil, we don't push the string on the search ring.
  (setq overriding-terminal-local-map nil)
  ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs

  (interactive)
  (isearch-yank-string
   (save-excursion
     (and (not isearch-forward) isearch-other-end
	  (goto-char isearch-other-end))
     (buffer-substring (point) (progn (forward-word 1) (point))))))

(defun isearch-yank-line ()
  "Pull rest of line from buffer into search string."
  (interactive)
  (isearch-yank-string
   (save-excursion
     (and (not isearch-forward) isearch-other-end
	  (goto-char isearch-other-end))
     (buffer-substring (point) (line-end-position)))))


(defun isearch-search-and-update ()
  ;; Do the search and update the display.
  (if (and (not isearch-success)

                                 'isearch-lazy-highlight-update))
              (if isearch-forward
                  (setq isearch-lazy-highlight-end (point-min))
                (setq isearch-lazy-highlight-start (point-max))))))))))

;;; isearch.el ends here

30476:26fe451fc5f7

  ;; We must prevent the point moving to the end of composition when a
  ;; part of the composition has just been searched.
  (setq disable-point-adjustment t))

(defun isearch-done (&optional nopush edit)
  (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
				  ,isearch-word ,isearch-forward
				  ,isearch-message
				  ,isearch-case-fold-search)))
    (unless (equal (car command-history) command)
      (setq command-history (cons command command-history))))

  (remove-hook 'mouse-leave-buffer-hook 'isearch-done)
  ;; Called by all commands that terminate isearch-mode.
  ;; If NOPUSH is non-nil, we don't push the string on the search ring.
  (setq overriding-terminal-local-map nil)
  ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs

  (interactive)
  (isearch-yank-string
   (save-excursion
     (and (not isearch-forward) isearch-other-end
	  (goto-char isearch-other-end))
     (buffer-substring-no-properties
      (point) (progn (forward-word 1) (point))))))

(defun isearch-yank-line ()
  "Pull rest of line from buffer into search string."
  (interactive)
  (isearch-yank-string
   (save-excursion
     (and (not isearch-forward) isearch-other-end
	  (goto-char isearch-other-end))
     (buffer-substring-no-properties (point) (line-end-position)))))


(defun isearch-search-and-update ()
  ;; Do the search and update the display.
  (if (and (not isearch-success)

                                 'isearch-lazy-highlight-update))
              (if isearch-forward
                  (setq isearch-lazy-highlight-end (point-min))
                (setq isearch-lazy-highlight-start (point-max))))))))))

(defun isearch-resume (search regexp word forward message case-fold)
  "Resume an incremental search.
SEARCH is the string or regexp searched for.
REGEXP non-nil means the resumed search was a regexp search.
WORD non-nil means resume a word search.
FORWARD non-nil means resume a forward search.
MESSAGE is the echo-area message recorded for the search resumed.
CASE-FOLD non-nil means the search was case-insensitive."
  (isearch-mode forward regexp nil nil word)
  (setq isearch-string search
	isearch-message message
	isearch-case-fold-search case-fold)
  (isearch-search))
	
;;; isearch.el ends here