diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-12-27 02:22:36 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-12-27 02:22:36 +0000 |
| commit | 3d37467b440826accd996b98018cc2bda2405529 (patch) | |
| tree | 1090d964f03253962a8c85c2fb9f227c71483dce /lisp/ido.el | |
| parent | 01baa13480a9c79fd1d8cb29afa4c048ce1dbcf8 (diff) | |
| download | emacs-3d37467b440826accd996b98018cc2bda2405529.tar.gz | |
(ido-set-matches-1): Fix last change. If default item is
current buffer, it is ok to be first.
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index b398e68319d..e02028e526c 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1046,6 +1046,9 @@ so that it doesn't interfere with other minibuffer usage.") ;; Stores the current ido item type ('file, 'dir, 'buffer, or 'list). (defvar ido-cur-item) +;;; Stores the current default item +(defvar ido-default-item) + ;; Stores the current list of items that will be searched through. ;; The list is ordered, so that the most interesting item comes first, ;; although by default, the files visible in the current frame are put @@ -3580,6 +3583,8 @@ for first matching file." (string-match re name)) (cond ((and (eq ido-cur-item 'buffer) + (or (not (stringp ido-default-item)) + (not (string= name ido-default-item))) (string= name (buffer-name ido-entry-buffer))) (setq matches (cons item matches))) ((and full-re (string-match full-re name)) |
