mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Andreas Schwab 2008-06-15 09:43:38 +00:00
parent 0d00764ae5
commit 390b0feef5
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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)

3
lisp/wdired.el
View File

@ -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))