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

[Stefan Monnier]

Index: emacs/lisp/isearch.el
diff -c emacs/lisp/isearch.el:1.230 emacs/lisp/isearch.el:1.231
*** emacs/lisp/isearch.el:1.230 Thu Jul  1 09:54:51 2004
--- emacs/lisp/isearch.el       Mon Jul  5 22:41:44 2004
***************
*** 1062,1068 ****
  (defun isearch-query-replace ()
    "Start query-replace with string to replace from last search string."
    (interactive)
!   (let ((query-replace-interactive 'initial)
          (case-fold-search isearch-case-fold-search))
      ;; Put search string into the right ring
      (setq isearch-regexp nil)
--- 1062,1068 ----
  (defun isearch-query-replace ()
    "Start query-replace with string to replace from last search string."
    (interactive)
!   (let ((query-replace-interactive t)
          (case-fold-search isearch-case-fold-search))
      ;; Put search string into the right ring
      (setq isearch-regexp nil)
***************
*** 1074,1080 ****
  (defun isearch-query-replace-regexp ()
    "Start query-replace-regexp with string to replace from last search string."
    (interactive)
!   (let ((query-replace-interactive 'initial)
          (case-fold-search isearch-case-fold-search))
      ;; Put search string into the right ring
      (setq isearch-regexp t)
--- 1074,1080 ----
  (defun isearch-query-replace-regexp ()
    "Start query-replace-regexp with string to replace from last search string."
    (interactive)
!   (let ((query-replace-interactive t)
          (case-fold-search isearch-case-fold-search))
      ;; Put search string into the right ring
      (setq isearch-regexp t)