el/dot-emacs.el: Replace `directory-name-p' by a circumlocution.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index c138bda..dafedfd 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -617,7 +617,7 @@ Don't do this if `mdw-inhibit-rename-buffer' is non-nil."
   (unless mdw-inhibit-rename-buffer
     (let ((buffer (get-file-buffer from)))
       (when buffer
-       (let ((to (if (not (directory-name-p to)) to
+       (let ((to (if (not (string= (file-name-nondirectory to) "")) to
                    (concat to (file-name-nondirectory from)))))
          (with-current-buffer buffer
            (set-visited-file-name to nil t)))))))