diff options
| author | Juanma Barranquero | 2007-06-20 15:14:44 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-06-20 15:14:44 +0000 |
| commit | 8eb17675b964e0d3d22b595e3c236a654bfe053a (patch) | |
| tree | 2a5605cdcb89fff07b9fc28934601d1a5fde55c8 | |
| parent | 15bdd7a08f0e42b1663531a73abedc5776e0f122 (diff) | |
| download | emacs-8eb17675b964e0d3d22b595e3c236a654bfe053a.tar.gz emacs-8eb17675b964e0d3d22b595e3c236a654bfe053a.zip | |
(ido-find-file-in-dir): Use `file-name-as-directory'.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/ido.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bc63d37234f..02745e8149a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2007-06-20 Juanma Barranquero <lekktu@gmail.com> | 1 | 2007-06-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 2 | ||
| 3 | * ido.el (ido-find-file-in-dir): Don't signal an error for | ||
| 4 | empty directories. | ||
| 5 | |||
| 3 | * add-log.el (change-log-mode): Set `show-trailing-whitespace'. | 6 | * add-log.el (change-log-mode): Set `show-trailing-whitespace'. |
| 4 | 7 | ||
| 5 | * desktop.el (desktop-read): Run `desktop-not-loaded-hook' in the | 8 | * desktop.el (desktop-read): Run `desktop-not-loaded-hook' in the |
diff --git a/lisp/ido.el b/lisp/ido.el index 5a7be3e5ae6..0808075b495 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -3994,8 +3994,7 @@ For details of keybindings, see `ido-switch-buffer'." | |||
| 3994 | (defun ido-find-file-in-dir (dir) | 3994 | (defun ido-find-file-in-dir (dir) |
| 3995 | "Switch to another file starting from DIR." | 3995 | "Switch to another file starting from DIR." |
| 3996 | (interactive "DDir: ") | 3996 | (interactive "DDir: ") |
| 3997 | (if (not (equal (substring dir -1) "/")) | 3997 | (setq dir (file-name-as-directory dir)) |
| 3998 | (setq dir (concat dir "/"))) | ||
| 3999 | (ido-file-internal ido-default-file-method nil dir nil nil nil 'ignore)) | 3998 | (ido-file-internal ido-default-file-method nil dir nil nil nil 'ignore)) |
| 4000 | 3999 | ||
| 4001 | ;;;###autoload | 4000 | ;;;###autoload |