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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
