bug fix for files.el change 1.633 (dired-directory not defined)

[Karl Chen]

The recent change to files.el breaks `find-alternate-file' until dired.el is
loaded. It uses the variable `dired-directory' which is defined only in
dired.el. This patch below fixes it.

--- files.el.~1.633.~   2003-02-06 00:58:29.000000000 -0800
+++ files.el    2003-02-11 23:19:13.000000000 -0800
@@ -940,7 +940,7 @@
   (let ((obuf (current-buffer))
        (ofile buffer-file-name)
        (onum buffer-file-number)
-       (odir dired-directory)
+       (odir (and (boundp 'dired-directory) dired-directory))
        (otrue buffer-file-truename)
        (oname (buffer-name)))
     (if (get-buffer " **lose**")


-- 
Karl Chen / address@hidden