Commit e3172001 authored by Martin Rudalics's avatar Martin Rudalics
Browse files

(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.
parent 9db3bfae
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment