[Emacs-diffs] master 3e233dd: * lisp/replace.el (query-replace-descr): Silence compiler.

[Glenn Morris]

branch: master
commit 3e233dd1c9a460e93974d9f13dfe564caed5ab56
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/replace.el (query-replace-descr): Silence compiler.
---
 lisp/replace.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/replace.el b/lisp/replace.el
index 0e72339..d5d34f6 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -148,7 +148,7 @@ See `replace-regexp' and `query-replace-regexp-eval'.")
 
 (defun query-replace-descr (string)
   (setq string (copy-sequence string))
-  (dotimes (i (length string) string)
+  (dotimes (i (length string))
     (let ((c (aref string i)))
       (cond
        ((< c ?\s) (add-text-properties
@@ -158,7 +158,8 @@ See `replace-regexp' and `query-replace-regexp-eval'.")
        ((= c ?\^?) (add-text-properties
                    i (1+ i)
                     `(display ,(propertize "^?" 'face 'escape-glyph))
-                    string))))))
+                    string)))))
+  string)
 
 (defun query-replace--split-string (string)
   "Split string STRING at a substring with property `separator'."