; * lisp/files.el (delete-file): Add expand-file-name back.

diff --git a/lisp/files.el b/lisp/files.el
index 685eb5fc957feedf2271a2475db3e6b7227b42cf..69c4a33cdebc3d61a8ed21b2efa74294ce7b0deb 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6374,7 +6374,8 @@ With a prefix argument, TRASH is nil."
                      (null current-prefix-arg)))
   (if (and (file-directory-p filename) (not (file-symlink-p filename)))
       (signal 'file-error (list "Removing old name: is a directory" filename)))
-  (let* ((handler (find-file-name-handler filename 'delete-file)))
+  (let* ((filename (expand-file-name filename))
+         (handler (find-file-name-handler filename 'delete-file)))
     (cond (handler (funcall handler 'delete-file filename trash))
           ((and delete-by-moving-to-trash trash) (move-file-to-trash filename))
           (t (delete-file-internal filename)))))