(find-alternate-file): Check whether `dired-directory' is bound.

2 files changed, 6 insertions, 1 deletions

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  <quarl@hkn.eecs.berkeley.edu>  (tiny change)
+
+        * files.el (find-alternate-file): Check whether `dired-directory'
+        is bound.
+
 2003-02-12  Simon Marshall  <simon@gnu.org>
 
         * 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**")