From: Andreas Schwab <schwab@suse.de>
Date: Sun, 15 Jun 2008 09:43:38 +0000 (+0000)
Subject: (wdired-search-and-rename): Fix undocumented change.
X-Git-Tag: emacs-pretest-23.0.90~4767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=390b0feef55157621ea195daed474dca99fd74a0;p=emacs.git

(wdired-search-and-rename): Fix undocumented change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e6b3e019cb..158523bc7ac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-15  Andreas Schwab  <schwab@suse.de>
+
+	* wdired.el (wdired-search-and-rename): Fix undocumented change.
+
 2008-06-15  Ulf Jasper  <ulf@web.de>
 
 	* net/newst-plainview.el (newsticker-faces, newsticker-feed-face)
diff --git a/lisp/wdired.el b/lisp/wdired.el
index fe14bce1785..e2d6a4b85b8 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -503,12 +503,11 @@ and proceed depending on the answer."
         (setq curr-filename (wdired-get-filename nil t))
         (if (equal curr-filename filename-ori)
             (progn
-              (setq exit-while t)
+              (setq done t)
               (let ((inhibit-read-only t))
                 (dired-move-to-filename)
                 (search-forward (wdired-get-filename t) nil t)
                 (replace-match (file-name-nondirectory filename-ori) t t))
-              (setq done)
               (dired-do-create-files-regexp
                (function dired-rename-file)
                "Move" 1 ".*" filename-new nil t))