Mercurial > emacs
comparison lisp/replace.el @ 71026:b5294b4387c4
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 |