aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2008-09-04 10:01:45 +0000
committerKim F. Storm2008-09-04 10:01:45 +0000
commit7d046dbbac5a3e38093b90fe49e77c3323369615 (patch)
tree50077e6338cbcbe0c18df4fe7715dff7f2c5f181
parent922649a9dc62f7634ef9a4b582c1c15c0afbad87 (diff)
downloademacs-7d046dbbac5a3e38093b90fe49e77c3323369615.tar.gz
emacs-7d046dbbac5a3e38093b90fe49e77c3323369615.zip
(ido-buffer-internal, ido-file-internal): Pass on other-window
and other-frame methods when switching between file and buffer modes.
-rw-r--r--lisp/ido.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ido.el b/lisp/ido.el
index fd0e6b2f7aa..dbf6cb87801 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2161,7 +2161,9 @@ If cursor is not at the end of the user input, move to end of input."
2161 2161
2162 (cond 2162 (cond
2163 ((eq ido-exit 'find-file) 2163 ((eq ido-exit 'find-file)
2164 (ido-file-internal ido-default-file-method nil nil nil nil ido-text)) 2164 (ido-file-internal
2165 (if (memq method '(other-window other-frame)) method ido-default-file-method)
2166 nil nil nil nil ido-text))
2165 2167
2166 ((eq ido-exit 'insert-file) 2168 ((eq ido-exit 'insert-file)
2167 (ido-file-internal 'insert 'insert-file nil "Insert file: " nil ido-text 'ido-enter-insert-buffer)) 2169 (ido-file-internal 'insert 'insert-file nil "Insert file: " nil ido-text 'ido-enter-insert-buffer))
@@ -2317,7 +2319,9 @@ If cursor is not at the end of the user input, move to end of input."
2317 (call-interactively this-command))) 2319 (call-interactively this-command)))
2318 2320
2319 ((eq ido-exit 'switch-to-buffer) 2321 ((eq ido-exit 'switch-to-buffer)
2320 (ido-buffer-internal ido-default-buffer-method nil nil nil ido-text)) 2322 (ido-buffer-internal
2323 (if (memq method '(other-window other-frame)) method ido-default-buffer-method)
2324 nil nil nil ido-text))
2321 2325
2322 ((eq ido-exit 'insert-buffer) 2326 ((eq ido-exit 'insert-buffer)
2323 (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil ido-text 'ido-enter-insert-file)) 2327 (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil ido-text 'ido-enter-insert-file))