# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1044355175 0
# Node ID ffebff40964ce4d0c1120b171f5bce905ffb49b7
# Parent  6592ceddab7bc66c4515e3e90af9180ae9304939
(dired-find-buffer-nocreate): Avoid error if dired-directory is nil.

diff -r 6592ceddab7b -r ffebff40964c lisp/dired.el
--- a/lisp/dired.el	Tue Feb 04 10:38:29 2003 +0000
+++ b/lisp/dired.el	Tue Feb 04 10:39:35 2003 +0000
@@ -589,6 +589,7 @@
 	(save-excursion
 	  (set-buffer (cdr (car blist)))
 	  (if (and (eq major-mode mode)
+		   dired-directory  ;; nil during find-alternate-file
 		   (equal dirname
 			  (expand-file-name
 			   (if (consp dired-directory)