diff options
| author | Kim F. Storm | 2008-09-04 10:01:45 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2008-09-04 10:01:45 +0000 |
| commit | 7d046dbbac5a3e38093b90fe49e77c3323369615 (patch) | |
| tree | 50077e6338cbcbe0c18df4fe7715dff7f2c5f181 | |
| parent | 922649a9dc62f7634ef9a4b582c1c15c0afbad87 (diff) | |
| download | emacs-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.el | 8 |
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)) |