From c45bc75309460dc1a0b98104ae3a506316f789da Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 12 Feb 2003 09:26:17 +0000 Subject: [PATCH] (find-alternate-file): Check whether `dired-directory' is bound. --- lisp/ChangeLog | 5 +++++ lisp/files.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9be8850740b..b21f2e6c103 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-02-12 Karl Chen (tiny change) + + * files.el (find-alternate-file): Check whether `dired-directory' + is bound. + 2003-02-12 Simon Marshall * progmodes/make-mode.el (makefile-font-lock-keywords): Fontify diff --git a/lisp/files.el b/lisp/files.el index 070db9f3be4..5ba163fc671 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -940,7 +940,7 @@ If the current buffer now contains an empty file that you just visited (let ((obuf (current-buffer)) (ofile buffer-file-name) (onum buffer-file-number) - (odir dired-directory) + (odir (bound-and-true-p dired-directory)) (otrue buffer-file-truename) (oname (buffer-name))) (if (get-buffer " **lose**") -- 2.39.2