aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGabor Vida2012-04-04 12:22:09 -0400
committerStefan Monnier2012-04-04 12:22:09 -0400
commitb4243e226b29e46f7c15f2b7bdd5c7cbb0d4f4e1 (patch)
treeaebcef9d20730a7a88e4e3daa9dfbad1e5258b86
parent305d9f44b0e69c07661efa687c4569f68eaf6d19 (diff)
downloademacs-b4243e226b29e46f7c15f2b7bdd5c7cbb0d4f4e1.tar.gz
emacs-b4243e226b29e46f7c15f2b7bdd5c7cbb0d4f4e1.zip
* lisp/ido.el (ido-wide-find-dirs-or-files): Use file-name-absolute-p.
Fixes: debbugs:11145
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/ido.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbb4419ee94..68f99882579 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-04-04 Gabor Vida <vidagabor@gmail.com> (tiny change)
2
3 * ido.el (ido-wide-find-dirs-or-files): Use file-name-absolute-p
4 (bug#11145).
5
12012-04-04 Stefan Monnier <monnier@iro.umontreal.ca> 62012-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
2 7
3 * comint.el (comint--common-quoted-suffix): Check string boundary 8 * comint.el (comint--common-quoted-suffix): Check string boundary
diff --git a/lisp/ido.el b/lisp/ido.el
index dcaa8f373ce..fe94c7f225e 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3269,7 +3269,7 @@ for first matching file."
3269 (while filenames 3269 (while filenames
3270 (setq filename (car filenames) 3270 (setq filename (car filenames)
3271 filenames (cdr filenames)) 3271 filenames (cdr filenames))
3272 (if (and (string-match "^/" filename) 3272 (if (and (file-name-absolute-p filename)
3273 (file-exists-p filename)) 3273 (file-exists-p filename))
3274 (setq d (file-name-directory filename) 3274 (setq d (file-name-directory filename)
3275 f (file-name-nondirectory filename) 3275 f (file-name-nondirectory filename)