# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1167179214 0
# Node ID d2cfe143b8028888a25ccad74d1d3c87e2cfaebb
# Parent  c5b3e0d3ccc59cb59346ba1cc306f7a6b1e50454
(ido-set-matches-1): Never put current buffer first if
there are other matches.

diff -r c5b3e0d3ccc5 -r d2cfe143b802 lisp/ido.el
--- a/lisp/ido.el	Wed Dec 27 00:26:39 2006 +0000
+++ b/lisp/ido.el	Wed Dec 27 00:26:54 2006 +0000
@@ -3579,6 +3579,9 @@
 			    (/= (aref name 0) ?.)))
 		      (string-match re name))
 		 (cond
+		  ((and (eq ido-cur-item 'buffer)
+			(string= name (buffer-name ido-entry-buffer)))
+		   (setq matches (cons item matches)))
 		  ((and full-re (string-match full-re name))
 		   (setq full-matches (cons item full-matches)))
 		  ((and suffix-re (string-match suffix-re name))