Mercurial > hg > xemacs-beta
comparison lisp/replace.el @ 5473:ac37a5f7e5be
Merge with trunk.
| author | Mats Lidell <matsl@xemacs.org> |
|---|---|
| date | Thu, 17 Mar 2011 23:42:59 +0100 |
| parents | 308d34e9f07d f00192e1cd49 |
| children | c6b1500299a7 |
comparison
equal
deleted
inserted
replaced
| 5472:e79980ee5efe | 5473:ac37a5f7e5be |
|---|---|
| 149 'query-replace-history)) | 149 'query-replace-history)) |
| 150 (list from to current-prefix-arg))) | 150 (list from to current-prefix-arg))) |
| 151 (let (replacements) | 151 (let (replacements) |
| 152 (if (listp to-strings) | 152 (if (listp to-strings) |
| 153 (setq replacements to-strings) | 153 (setq replacements to-strings) |
| 154 (while (/= (length to-strings) 0) | 154 (while (not (eql (length to-strings) 0)) |
| 155 (if (string-match " " to-strings) | 155 (if (string-match " " to-strings) |
| 156 (setq replacements | 156 (setq replacements |
| 157 (append replacements | 157 (append replacements |
| 158 (list (substring to-strings 0 | 158 (list (substring to-strings 0 |
| 159 (string-match " " to-strings)))) | 159 (string-match " " to-strings)))) |