diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-01-26 17:23:56 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-01-26 17:23:56 +0000 |
| commit | e31720013490deeb31fb429e5beb18ce63147a1f (patch) | |
| tree | 922f9c2f10fa02c05e33387f4465d8acf2545486 /lisp/wdired.el | |
| parent | 9db3bfaeaf0fb657f5caffd1d5e1977e432f5555 (diff) | |
| download | emacs-e31720013490deeb31fb429e5beb18ce63147a1f.tar.gz | |
(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.
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/wdired.el b/lisp/wdired.el index 287e2119c8d..36725db5db5 100644 --- 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) |