From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 12 Feb 2003 09:26:17 +0000 (+0000)
Subject: (find-alternate-file): Check whether `dired-directory' is bound.
X-Git-Tag: ttn-vms-21-2-B4~11229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c45bc75309460dc1a0b98104ae3a506316f789da;p=emacs.git

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

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**")