From f74fc666ec8a9c60df691d70930dff5fae52853b Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 26 Aug 2020 13:02:30 +0100 Subject: [PATCH] el/dot-emacs.el: Replace `directory-name-p' by a circumlocution. I hadn't noticed that this function doesn't exist in Emacs 24. --- el/dot-emacs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index c138bda..dafedfd 100644 --- 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))))))) -- 2.11.0