[Emacs-diffs] Changes to emacs/lisp/isearch.el

[Juri Linkov]

Index: emacs/lisp/isearch.el
diff -c emacs/lisp/isearch.el:1.240 emacs/lisp/isearch.el:1.241
*** emacs/lisp/isearch.el:1.240 Mon Sep 13 08:18:22 2004
--- emacs/lisp/isearch.el       Tue Oct  5 04:22:41 2004
***************
*** 680,695 ****
      (if isearch-small-window
        (goto-char found-point)
        ;; Exiting the save-window-excursion clobbers window-start; restore it.
!       (set-window-start (selected-window) found-start t))
! 
!     ;; If there was movement, mark the starting position.
!     ;; Maybe should test difference between and set mark iff > threshold.
!     (if (/= (point) isearch-opoint)
!       (or (and transient-mark-mode mark-active)
!           (progn
!             (push-mark isearch-opoint t)
!             (or executing-kbd-macro (> (minibuffer-depth) 0)
!                 (message "Mark saved where search started"))))))
  
    (setq isearch-mode nil)
    (if isearch-input-method-local-p
--- 680,686 ----
      (if isearch-small-window
        (goto-char found-point)
        ;; Exiting the save-window-excursion clobbers window-start; restore it.
!       (set-window-start (selected-window) found-start t)))
  
    (setq isearch-mode nil)
    (if isearch-input-method-local-p
***************
*** 714,719 ****
--- 705,720 ----
        (isearch-update-ring isearch-string isearch-regexp))
  
    (run-hooks 'isearch-mode-end-hook)
+ 
+   ;; If there was movement, mark the starting position.
+   ;; Maybe should test difference between and set mark iff > threshold.
+   (if (/= (point) isearch-opoint)
+       (or (and transient-mark-mode mark-active)
+         (progn
+           (push-mark isearch-opoint t)
+           (or executing-kbd-macro (> (minibuffer-depth) 0)
+               (message "Mark saved where search started")))))
+ 
    (and (not edit) isearch-recursive-edit (exit-recursive-edit)))
  
  (defun isearch-update-ring (string &optional regexp)