(wdired-get-filename): Change `(1+ beg)' to `beg' so

that the filename end is found even when the filename is empty.
Fixes error and spurious newlines when marking files for deletion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4dd992d03b79428498a35a07ef6388607f4b425..cbdb8f932563743ae8ebacfafa45cd41f3e29511 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-26  Phil Sung <psung@mit.edu> (tiny change)
+
+       * wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so
+       that the filename end is found even when the filename is empty.
+       Fixes error and spurious newlines when marking files for deletion.
+
 2008-01-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
        * blank-mode.el: New version 9.1.  Handle "long" line tail

diff --git a/lisp/wdired.el b/lisp/wdired.el
index dff4c008d1b80ab35dab8cdb1a9a6034d2cf89ac..013e14ec7f748fbd36576a18f95b00e4ddc74afd 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -323,7 +323,11 @@ non-nil means return old filename."
       (unless (eq beg end)
        (if old
            (setq file (get-text-property beg 'old-name))
-         (setq end (next-single-property-change (1+ beg) 'end-name))
+         ;; In the following form changed `(1+ beg)' to `beg' so that
+         ;; the filename end is found even when the filename is empty.
+         ;; Fixes error and spurious newlines when marking files for
+         ;; deletion.
+         (setq end (next-single-property-change beg 'end-name))
          (setq file (buffer-substring-no-properties (1+ beg) end)))
        (and file (setq file (wdired-normalize-filename file))))
       (if (or no-dir old)