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

[Juanma Barranquero]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.209 emacs/lisp/replace.el:1.210
*** emacs/lisp/replace.el:1.209 Sat May  7 13:44:45 2005
--- emacs/lisp/replace.el       Wed May 18 10:17:18 2005
***************
*** 1288,1301 ****
      (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"
                         newtext)
        (setq newtext
!           (read-input "Edit replacement string: "
!                       (prog1
!                           (cons
!                            (replace-match "" t t newtext 3)
!                            (1+ (match-beginning 3)))
!                         (setq match-data
!                               (replace-match-data
!                                nil match-data match-data))))
            noedit nil)))
    (set-match-data match-data)
    (replace-match newtext fixedcase literal)
--- 1288,1301 ----
      (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)"
                         newtext)
        (setq newtext
!           (read-string "Edit replacement string: "
!                          (prog1
!                              (cons
!                               (replace-match "" t t newtext 3)
!                               (1+ (match-beginning 3)))
!                            (setq match-data
!                                  (replace-match-data
!                                   nil match-data match-data))))
            noedit nil)))
    (set-match-data match-data)
    (replace-match newtext fixedcase literal)
***************
*** 1571,1578 ****
                                                nil real-match-data
                                                real-match-data)
                               next-replacement
!                              (read-input "Edit replacement string: "
!                                          next-replacement)
                               noedit nil)
                         (if replaced
                             (set-match-data real-match-data)
--- 1571,1578 ----
                                                nil real-match-data
                                                real-match-data)
                               next-replacement
!                              (read-string "Edit replacement string: "
!                                             next-replacement)
                               noedit nil)
                         (if replaced
                             (set-match-data real-match-data)