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

Diff of /emacs/lisp/replace.el

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

revision 1.130 by schwab, Mon Feb 18 20:30:19 2002 UTC revision 1.131 by rms, Mon Mar 25 00:38:46 2002 UTC
# Line 62  strings or patterns." Line 62  strings or patterns."
62    :group 'matching    :group 'matching
63    :version "21.3")    :version "21.3")
64    
65  (defun query-replace-read-args (string regexp-flag)  (defun query-replace-read-args (string regexp-flag &optional noerror)
66    (barf-if-buffer-read-only)    (unless noerror
67        (barf-if-buffer-read-only))
68    (let (from to)    (let (from to)
69      (if query-replace-interactive      (if query-replace-interactive
70          (setq from (car (if regexp-flag regexp-search-ring search-ring)))          (setq from (car (if regexp-flag regexp-search-ring search-ring)))
# Line 1128  see the documentation of `replace-match' Line 1129  see the documentation of `replace-match'
1129                             (save-excursion                             (save-excursion
1130                               (funcall search-function search-string limit t)                               (funcall search-function search-string limit t)
1131                               (setq real-match-data (match-data)))                               (setq real-match-data (match-data)))
1132                             (save-excursion (recursive-edit))                             (save-excursion
1133                                 (save-window-excursion
1134                                   (recursive-edit)))
1135                             (goto-char opos))                             (goto-char opos))
1136                           (set-match-data real-match-data)                           (set-match-data real-match-data)
1137                           ;; Before we make the replacement,                           ;; Before we make the replacement,

Legend:
Removed from v.1.130  
changed lines
  Added in v.1.131

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