Mercurial > emacs
comparison lisp/replace.el @ 72095:2a66d3b6c808
(replace-match-string-symbols): Handle dotted lists.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Jul 2006 16:52:57 +0000 |
| parents | 21306dd42b3c |
| children | 34b20acf743f 858cb33ae39d |
comparison
equal
deleted
inserted
replaced
| 72094:7da1e62f312e | 72095:2a66d3b6c808 |
|---|---|
| 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)))) |