Mercurial > emacs
comparison lisp/replace.el @ 62458:2c228409c44d
Replace `read-input' by `read-string'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 18 May 2005 10:17:18 +0000 |
| parents | 94214f10d9c4 |
| children | f5aef2123438 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62457:4e1114c69642 | 62458:2c228409c44d |
|---|---|
| 1286 (unless (or literal noedit) | 1286 (unless (or literal noedit) |
| 1287 (setq noedit t) | 1287 (setq noedit t) |
| 1288 (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)" | 1288 (while (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\?\\)" |
| 1289 newtext) | 1289 newtext) |
| 1290 (setq newtext | 1290 (setq newtext |
| 1291 (read-input "Edit replacement string: " | 1291 (read-string "Edit replacement string: " |
| 1292 (prog1 | 1292 (prog1 |
| 1293 (cons | 1293 (cons |
| 1294 (replace-match "" t t newtext 3) | 1294 (replace-match "" t t newtext 3) |
| 1295 (1+ (match-beginning 3))) | 1295 (1+ (match-beginning 3))) |
| 1296 (setq match-data | 1296 (setq match-data |
| 1297 (replace-match-data | 1297 (replace-match-data |
| 1298 nil match-data match-data)))) | 1298 nil match-data match-data)))) |
| 1299 noedit nil))) | 1299 noedit nil))) |
| 1300 (set-match-data match-data) | 1300 (set-match-data match-data) |
| 1301 (replace-match newtext fixedcase literal) | 1301 (replace-match newtext fixedcase literal) |
| 1302 noedit) | 1302 noedit) |
| 1303 | 1303 |
| 1569 ((eq def 'edit-replacement) | 1569 ((eq def 'edit-replacement) |
| 1570 (setq real-match-data (replace-match-data | 1570 (setq real-match-data (replace-match-data |
| 1571 nil real-match-data | 1571 nil real-match-data |
| 1572 real-match-data) | 1572 real-match-data) |
| 1573 next-replacement | 1573 next-replacement |
| 1574 (read-input "Edit replacement string: " | 1574 (read-string "Edit replacement string: " |
| 1575 next-replacement) | 1575 next-replacement) |
| 1576 noedit nil) | 1576 noedit nil) |
| 1577 (if replaced | 1577 (if replaced |
| 1578 (set-match-data real-match-data) | 1578 (set-match-data real-match-data) |
| 1579 (setq noedit | 1579 (setq noedit |
| 1580 (replace-match-maybe-edit | 1580 (replace-match-maybe-edit |