Commit 3808c51f authored by Chong Yidong's avatar Chong Yidong
Browse files

* ido.el (ido-file-internal): Fix 2009-12-02 change.

parent 7860d2e3
2010-04-14 Óscar Fuentes <ofv@wanadoo.es>
* ido.el (ido-file-internal): Fix 2009-12-02 change.
2010-04-14 Christoph <cschol2112@googlemail.com> (tiny change)
* progmodes/grep.el (grep-compute-defaults): Fix handling of host
......
......@@ -2272,7 +2272,8 @@ If cursor is not at the end of the user input, move to end of input."
(or ido-use-url-at-point ido-use-filename-at-point))
(let (fn d)
(require 'ffap)
;; Duplicate code from ffap-guesser as we want different behavior for files and URLs.
;; Duplicate code from ffap-guesser as we want different
;; behavior for files and URLs.
(cond
((with-no-warnings
(and ido-use-url-at-point
......@@ -2288,7 +2289,10 @@ 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 (expand-file-name fn)))
(let ((absolute-fn (expand-file-name fn)))
(setq d (if (file-directory-p absolute-fn)
(file-name-as-directory absolute-fn)
(file-name-directory absolute-fn))))
(file-directory-p d))
(setq ido-current-directory d)
(setq initial (file-name-nondirectory fn))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment