Mercurial > emacs
comparison lisp/replace.el @ 90573:858cb33ae39d
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 357-381)
- Merge from gnus--rel--5.10
- Update from CVS
- Merge from erc--emacs--21
* gnus--rel--5.10 (patch 116-122)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 03 Aug 2006 11:45:23 +0000 |
| parents | a8190f7e546e 2a66d3b6c808 |
| children | 6588c6259dfb |
comparison
equal
deleted
inserted
replaced
| 90572:ab9b8d043c39 | 90573:858cb33ae39d |
|---|---|
| 1281 & (match-string 0) | 1281 & (match-string 0) |
| 1282 #& (string-to-number (match-string 0)) | 1282 #& (string-to-number (match-string 0)) |
| 1283 # replace-count | 1283 # replace-count |
| 1284 | 1284 |
| 1285 Note that these symbols must be preceeded by a backslash in order to | 1285 Note that these symbols must be preceeded by a backslash in order to |
| 1286 type them." | 1286 type them using Lisp syntax." |
| 1287 (while n | 1287 (while (consp n) |
| 1288 (cond | 1288 (cond |
| 1289 ((consp (car n)) | 1289 ((consp (car n)) |
| 1290 (replace-match-string-symbols (car n))) ;Process sub-list | 1290 (replace-match-string-symbols (car n))) ;Process sub-list |
| 1291 ((symbolp (car n)) | 1291 ((symbolp (car n)) |
| 1292 (let ((name (symbol-name (car n)))) | 1292 (let ((name (symbol-name (car n)))) |