Re: patch: write-file to arbitrary target directory

[Richard Stallman]

The change looks useful, but there may be a problem.

    !      (let ((dir  (file-name-directory (buffer-name)))
    !            (file (file-name-nondirectory (buffer-name))))

DIR will nearly always be nil, because buffer names normally
do not include directory parts.

Thus, not using default-directory here

    !        (read-file-name "Write file: "
    !                        dir (expand-file-name file dir) nil file)))

seems like a bug.  What is the aim of that particular change?


Aside from that, it needs changes in the manual (maybe in more than
one place).