diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2007-03-18 02:49:54 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2007-03-18 02:49:54 +0000 |
| commit | 82a614d15d6cb3f77d818aecbb683c13ac02953e (patch) | |
| tree | 05102bc215a58d0b4d72e2fcace6ff4030b7929b /lisp/progmodes/compile.el | |
| parent | 92e0e0c44c7de2b35a3c7f1b72538cc0f3b4ab92 (diff) | |
| download | emacs-82a614d15d6cb3f77d818aecbb683c13ac02953e.tar.gz emacs-82a614d15d6cb3f77d818aecbb683c13ac02953e.tar.bz2 emacs-82a614d15d6cb3f77d818aecbb683c13ac02953e.zip | |
(compilation-find-file): Revert change
from 2006-07-18 to allow completion of directory names.
Reported by John Carter <john.carter@tait.co.nz>.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 3039f614fb2..aa77caf0670 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1862,17 +1862,7 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." (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)) |