aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2007-06-20 15:14:44 +0000
committerJuanma Barranquero2007-06-20 15:14:44 +0000
commit8eb17675b964e0d3d22b595e3c236a654bfe053a (patch)
tree2a5605cdcb89fff07b9fc28934601d1a5fde55c8
parent15bdd7a08f0e42b1663531a73abedc5776e0f122 (diff)
downloademacs-8eb17675b964e0d3d22b595e3c236a654bfe053a.tar.gz
emacs-8eb17675b964e0d3d22b595e3c236a654bfe053a.zip
(ido-find-file-in-dir): Use `file-name-as-directory'.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/ido.el3
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 @@
12007-06-20 Juanma Barranquero <lekktu@gmail.com> 12007-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