aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLeo Liu2013-07-13 08:57:47 +0800
committerLeo Liu2013-07-13 08:57:47 +0800
commit97ead0e597427786571cd69e052a2886d1da6032 (patch)
treef810bd45e74740653cd03ef2489a272f1ac8e523
parent5e301d7651c0691bb2bc7f3fbe711fdbe26ac471 (diff)
downloademacs-97ead0e597427786571cd69e052a2886d1da6032.tar.gz
emacs-97ead0e597427786571cd69e052a2886d1da6032.zip
* ido.el (ido-exhibit): Handle ido-enter-matching-directory before
ido-set-matches call. Fixes: debbugs:6852
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/ido.el10
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81bcb1d033c..a6a0850b346 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12013-07-13 Leo Liu <sdl.web@gmail.com>
2
3 * ido.el (ido-exhibit): Handle ido-enter-matching-directory before
4 ido-set-matches call. (Bug#6852)
5
12013-07-12 Dmitry Gutov <dgutov@yandex.ru> 62013-07-12 Dmitry Gutov <dgutov@yandex.ru>
2 7
3 * progmodes/ruby-mode.el (ruby-percent-literals-beg-re): 8 * progmodes/ruby-mode.el (ruby-percent-literals-beg-re):
diff --git a/lisp/ido.el b/lisp/ido.el
index 9c4e56544cb..ce43e866d09 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -4482,11 +4482,6 @@ For details of keybindings, see `ido-find-file'."
4482 (setq ido-exit 'refresh) 4482 (setq ido-exit 'refresh)
4483 (exit-minibuffer)) 4483 (exit-minibuffer))
4484 4484
4485 ;; Update the list of matches
4486 (setq ido-text contents)
4487 (ido-set-matches)
4488 (ido-trace "new " ido-matches)
4489
4490 (when (and ido-enter-matching-directory 4485 (when (and ido-enter-matching-directory
4491 ido-matches 4486 ido-matches
4492 (or (eq ido-enter-matching-directory 'first) 4487 (or (eq ido-enter-matching-directory 'first)
@@ -4500,6 +4495,11 @@ For details of keybindings, see `ido-find-file'."
4500 (setq ido-exit 'refresh) 4495 (setq ido-exit 'refresh)
4501 (exit-minibuffer)) 4496 (exit-minibuffer))
4502 4497
4498 ;; Update the list of matches
4499 (setq ido-text contents)
4500 (ido-set-matches)
4501 (ido-trace "new " ido-matches)
4502
4503 (when (and (boundp 'ido-enable-virtual-buffers) 4503 (when (and (boundp 'ido-enable-virtual-buffers)
4504 (not (eq ido-enable-virtual-buffers 'always)) 4504 (not (eq ido-enable-virtual-buffers 'always))
4505 (eq ido-cur-item 'buffer) 4505 (eq ido-cur-item 'buffer)