diff options
| author | Glenn Morris | 2009-12-02 03:00:41 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-12-02 03:00:41 +0000 |
| commit | b2d5f31abf3d04628c9fe858fd80592e4f649097 (patch) | |
| tree | 75be13dcbde92fd4c761a644ee3049cf7ad448ce | |
| parent | c710ac3c08b7657f775b5d5f63bf98d3c71f2a5d (diff) | |
| download | emacs-b2d5f31abf3d04628c9fe858fd80592e4f649097.tar.gz emacs-b2d5f31abf3d04628c9fe858fd80592e4f649097.zip | |
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)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ido.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0fe7ef21efc..6b9349a2fbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-12-02 Andreas Politz <politza@fh-trier.de> (tiny change) | ||
| 2 | |||
| 3 | * ido.el (ido-file-internal): Handle filenames at point that do | ||
| 4 | not have a directory part. (Bug#5049) | ||
| 5 | |||
| 1 | 2009-12-02 Juanma Barranquero <lekktu@gmail.com> | 6 | 2009-12-02 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 7 | ||
| 3 | * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) | 8 | * 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." | |||
| 2288 | (ffap-guesser) | 2288 | (ffap-guesser) |
| 2289 | (ffap-string-at-point)))) | 2289 | (ffap-string-at-point)))) |
| 2290 | (not (string-match "^http:/" fn)) | 2290 | (not (string-match "^http:/" fn)) |
| 2291 | (setq d (file-name-directory fn)) | 2291 | (setq d (file-name-directory (expand-file-name fn))) |
| 2292 | (file-directory-p d)) | 2292 | (file-directory-p d)) |
| 2293 | (setq ido-current-directory d) | 2293 | (setq ido-current-directory d) |
| 2294 | (setq initial (file-name-nondirectory fn)))))) | 2294 | (setq initial (file-name-nondirectory fn)))))) |