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

diff --git a/lisp/replace.el b/lisp/replace.el
index 2f8fe86860c9b8183ccbf2ec77283dd6cfab45d1..4275aef8d87c85c04930a0edc43c20407bbaedf5 100644 (file)
--- 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