[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v |
Date: |
Sun, 18 Mar 2007 02:49:54 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Nick Roberts <nickrob> 07/03/18 02:49:54
Index: compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.417
retrieving revision 1.418
diff -u -b -r1.417 -r1.418
--- compile.el 21 Jan 2007 03:20:45 -0000 1.417
+++ compile.el 18 Mar 2007 02:49:54 -0000 1.418
@@ -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))
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v,
Nick Roberts <=