From b2d5f31abf3d04628c9fe858fd80592e4f649097 Mon Sep 17 00:00:00 2001 From: Glenn Morris <rgm@gnu.org> Date: Wed, 2 Dec 2009 03:00:41 +0000 Subject: [PATCH] Andreas Politz <politza at fh-trier.de> (tiny change) (ido-file-internal): Handle filenames at point that do not have a directory part. (Bug#5049) --- lisp/ChangeLog | 5 +++++ lisp/ido.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0fe7ef21efc..6b9349a2fbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-02 Andreas Politz <politza@fh-trier.de> (tiny change) + + * ido.el (ido-file-internal): Handle filenames at point that do + not have a directory part. (Bug#5049) + 2009-12-02 Juanma Barranquero <lekktu@gmail.com> * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) diff --git a/lisp/ido.el b/lisp/ido.el index 7317540db32..ded7cbbfb4d 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -2288,7 +2288,7 @@ If cursor is not at the end of the user input, move to end of input." (ffap-guesser) (ffap-string-at-point)))) (not (string-match "^http:/" fn)) - (setq d (file-name-directory fn)) + (setq d (file-name-directory (expand-file-name fn))) (file-directory-p d)) (setq ido-current-directory d) (setq initial (file-name-nondirectory fn)))))) -- 2.39.5