ido.el fix for bug#13036

* lisp/ido.el (ido-file-internal): Handle other-window, other-frame for dired.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69492f0368203c9106d1cbab2bf9081c05dc3608..1bcb633b06f5ce42056d4cc4e43c5b0b1a6d3941 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-01  Glenn Morris  <rgm@gnu.org>
+
+       * ido.el (ido-file-internal):
+       Handle other-window, other-frame for dired.  (Bug#13036)
+
 2012-11-30  Glenn Morris  <rgm@gnu.org>
 
        * icomplete.el (icomplete-separator): Fix :version.

diff --git a/lisp/ido.el b/lisp/ido.el
index f4f9c27c847300df7cce1d34afd2d68595d0cf12..7044fa496db76131c62d114ef9ff69b40fe715d3 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2389,7 +2389,10 @@ If cursor is not at the end of the user input, move to end of input."
        (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil ido-text 'ido-enter-insert-file))
 
        ((eq ido-exit 'dired)
-       (dired (concat ido-current-directory (or ido-text ""))))
+        (funcall (cond ((eq method 'other-window) 'dired-other-window)
+                       ((eq method 'other-frame) 'dired-other-frame)
+                       (t 'dired))
+                 (concat ido-current-directory (or ido-text ""))))
 
        ((eq ido-exit 'ffap)
        (find-file-at-point))