Mercurial > hg > xemacs-beta

comparison lisp/replace.el @ 235:85a06df23a9a r20-5b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b16
author cvs
date Mon, 13 Aug 2007 10:14:40 +0200
parents 41ff10fd062f
children c42ec1d1cded
comparison
equal deleted inserted replaced
234:946e7f6ce379 235:85a06df23a9a
91 (and (boundp 'transient-mark-mode) transient-mark-mode mark-active)) 91 (and (boundp 'transient-mark-mode) transient-mark-mode mark-active))
92 (save-restriction 92 (save-restriction
93 (save-excursion 93 (save-excursion
94 (narrow-to-region (point) (mark)) 94 (narrow-to-region (point) (mark))
95 (goto-char (point-min)) 95 (goto-char (point-min))
96 (query-replace from-string to-string arg))) 96 (perform-replace from-string to-string t nil arg)))
97 (perform-replace from-string to-string t nil arg))) 97 (perform-replace from-string to-string t nil arg)))
98 98
99 (defun query-replace-regexp (regexp to-string &optional arg) 99 (defun query-replace-regexp (regexp to-string &optional arg)
100 "Replace some things after point matching REGEXP with TO-STRING. 100 "Replace some things after point matching REGEXP with TO-STRING.
101 As each match is found, the user must type a character saying 101 As each match is found, the user must type a character saying