/[emacs]/emacs/lisp/isearch.el
ViewVC logotype

Diff of /emacs/lisp/isearch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.230 by jurta, Thu Jul 1 09:54:51 2004 UTC revision 1.231 by monnier, Mon Jul 5 22:41:44 2004 UTC
# Line 1062  Use `isearch-exit' to quit without signa Line 1062  Use `isearch-exit' to quit without signa
1062  (defun isearch-query-replace ()  (defun isearch-query-replace ()
1063    "Start query-replace with string to replace from last search string."    "Start query-replace with string to replace from last search string."
1064    (interactive)    (interactive)
1065    (let ((query-replace-interactive 'initial)    (let ((query-replace-interactive t)
1066          (case-fold-search isearch-case-fold-search))          (case-fold-search isearch-case-fold-search))
1067      ;; Put search string into the right ring      ;; Put search string into the right ring
1068      (setq isearch-regexp nil)      (setq isearch-regexp nil)
# Line 1074  Use `isearch-exit' to quit without signa Line 1074  Use `isearch-exit' to quit without signa
1074  (defun isearch-query-replace-regexp ()  (defun isearch-query-replace-regexp ()
1075    "Start query-replace-regexp with string to replace from last search string."    "Start query-replace-regexp with string to replace from last search string."
1076    (interactive)    (interactive)
1077    (let ((query-replace-interactive 'initial)    (let ((query-replace-interactive t)
1078          (case-fold-search isearch-case-fold-search))          (case-fold-search isearch-case-fold-search))
1079      ;; Put search string into the right ring      ;; Put search string into the right ring
1080      (setq isearch-regexp t)      (setq isearch-regexp t)

Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26