From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 Jul 2006 16:52:57 +0000 (+0000)
Subject: (replace-match-string-symbols): Handle dotted lists.
X-Git-Tag: emacs-pretest-22.0.90~1269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f72f9f1a5822dd2353f773d4dcfbace097611d9c;p=emacs.git

(replace-match-string-symbols): Handle dotted lists.
---

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)
 #     replace-count
 
 Note that these symbols must be preceeded by a backslash in order to
-type them."
-  (while n
+type them using Lisp syntax."
+  (while (consp n)
     (cond
      ((consp (car n))
       (replace-match-string-symbols (car n))) ;Process sub-list