# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1174186194 0
# Node ID db7d24c39f42190acf05b1d5cd9c1f92e662d444
# Parent  1994de9359df118c3197537c4d607ac174d8e973
(compilation-find-file): Revert change
from 2006-07-18 to allow completion of directory names.
Reported by John Carter <john.carter@tait.co.nz>.

diff -r 1994de9359df -r db7d24c39f42 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Mar 18 02:48:43 2007 +0000
+++ b/lisp/progmodes/compile.el	Sun Mar 18 02:49:54 2007 +0000
@@ -1862,17 +1862,7 @@
           (let* ((name (read-file-name
                         (format "Find this %s in (default %s): "
                                 compilation-error filename)
-                        spec-dir filename t nil
-                        ;; Try to make sure the user can only select
-                        ;; a valid answer.  This predicate may be ignored,
-                        ;; tho, so we still have to double-check afterwards.
-                        ;; TODO: We should probably fix read-file-name so
-                        ;; that it never ignores this predicate, even when
-                        ;; using popup dialog boxes.
-                        (lambda (name)
-                          (if (file-directory-p name)
-                              (setq name (expand-file-name filename name)))
-                          (file-exists-p name))))
+                        spec-dir filename t nil))
                  (origname name))
             (cond
              ((not (file-exists-p name))