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

I hadn't noticed that this function doesn't exist in Emacs 24.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index c138bda390ede95a223a4c634b764fda0b0ffd77..dafedfd7531b8c921ff1bba12fe61fecda5b7043 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -617,7 +617,7 @@ (defadvice rename-file (after mdw-rename-buffers (from to &optional forcep)
   (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)))))))