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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9be8850740b22554eed9e7bf696cd60f64c89b62..b21f2e6c1030b9f45571bf58f4d4f1c23b26626f 100644 (file)
--- 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 070db9f3be440d95da9411b49c301f8b26b3af2b..5ba163fc67150b40f8659e1afd04eeb7c865ba64 100644 (file)
--- 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**")