Mercurial > emacs

comparison lisp/replace.el @ 71026:b5294b4387c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix last change.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 28 May 2006 17:05:38 +0000
parents 82d1f472baee
children 21306dd42b3c
comparison
equal deleted inserted replaced
71025:82d1f472baee 71026:b5294b4387c4
112 (format "%s: " prompt)) 112 (format "%s: " prompt))
113 nil nil nil 113 nil nil nil
114 query-replace-from-history-variable 114 query-replace-from-history-variable
115 nil t)))) 115 nil t))))
116 (if (and (zerop (length from)) query-replace-defaults) 116 (if (and (zerop (length from)) query-replace-defaults)
117 (progn 117 (cons (car query-replace-defaults)
118 (set query-replace-from-history-variable 118 (query-replace-compile-replacement
119 (cdr (symbol-value query-replace-from-history-variable))) 119 (cdr query-replace-defaults) regexp-flag))
120 (cons (car query-replace-defaults)
121 (query-replace-compile-replacement
122 (cdr query-replace-defaults) regexp-flag)))
123 ;; Warn if user types \n or \t, but don't reject the input. 120 ;; Warn if user types \n or \t, but don't reject the input.
124 (and regexp-flag 121 (and regexp-flag
125 (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from) 122 (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)
126 (let ((match (match-string 3 from))) 123 (let ((match (match-string 3 from)))
127 (cond 124 (cond