diff options
| author | Richard M. Stallman | 2006-07-24 16:52:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-07-24 16:52:57 +0000 |
| commit | f72f9f1a5822dd2353f773d4dcfbace097611d9c (patch) | |
| tree | 8dec0f8764685606bc8e59408e114158b42a0795 | |
| parent | 41fdf678d891780ff8cbad1f50e51499b32af4dd (diff) | |
| download | emacs-f72f9f1a5822dd2353f773d4dcfbace097611d9c.tar.gz emacs-f72f9f1a5822dd2353f773d4dcfbace097611d9c.zip | |
(replace-match-string-symbols): Handle dotted lists.
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 2f8fe86860c..4275aef8d87 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1283,8 +1283,8 @@ N (match-string N) (where N is a string of digits) | |||
| 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 |