From: Glenn Morris <rgm@gnu.org>
Date: Fri, 20 Apr 2018 17:35:20 +0000 (-0400)
Subject: * lisp/replace.el (query-replace-descr): Silence compiler.
X-Git-Tag: emacs-27.0.90~5123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e233dd1c9a460e93974d9f13dfe564caed5ab56;p=emacs.git

* lisp/replace.el (query-replace-descr): Silence compiler.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 0e723390347..d5d34f652ab 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'."