Commit 19677c71 authored by Leo Liu's avatar Leo Liu Committed by Stefan Monnier
Browse files

* lisp/iswitchb.el (iswitchb-kill-buffer): Avoid `iswitchb-make-buflist'

which changes the order of matches seen by users.

Fixes: debbugs:7231
parent 77b143eb
2010-10-28 Jes Bodi Klinke <jes@bodi-klinke.dk>
2010-10-28 Leo <sdl.web@gmail.com>
* iswitchb.el (iswitchb-kill-buffer): Avoid `iswitchb-make-buflist'
which changes the order of matches seen by users (bug#7231).
2010-10-28 Jes Bodi Klinke <jes@bodi-klinke.dk> (tiny change)
 
* progmodes/compile.el (compilation-mode-font-lock-keywords):
Don't confuse -omega as "-o mega".
......
......@@ -1033,7 +1033,9 @@ Return the modified list with the last element prepended to it."
(setq buf (car iswitchb-matches))
;; check to see if buf is non-nil.
(if buf
(progn
(let ((bufobjs (mapcar (lambda (name)
(or (get-buffer name) name))
iswitchb-buflist)))
(kill-buffer buf)
;; Check if buffer exists. XEmacs gnuserv.el makes alias
......@@ -1044,8 +1046,13 @@ Return the modified list with the last element prepended to it."
(setq iswitchb-rescan t)
;; Else `kill-buffer' succeeds so re-make the buffer list
;; taking into account packages like uniquify may rename
;; buffers
(iswitchb-make-buflist iswitchb-default))))))
;; buffers, and try to preserve the ordering of buffers.
(setq iswitchb-buflist
(delq nil (mapcar (lambda (b)
(if (bufferp b)
(buffer-name b)
b))
bufobjs))))))))
;;; VISIT CHOSEN BUFFER
(defun iswitchb-visit-buffer (buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment