(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 0b0a7dca4ded94c032d1d21c91e74224bed792d7..1e67505cb70d0d0e9f2ab21909cbcb4137f49d8a 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  Martin Rudalics  <rudalics@gmx.at>
 
        * subr.el (find-tag-default): Simplify using exclusively

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 287e2119c8d8c0e4a9867ad095bd3bd6806d9291..36725db5db5441bef6bba3a7e3e86db7e999412f 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)