mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(iswitchb-get-bufname): Only add buffer of current

Browse Source 
window if it is not already in list.
This commit is contained in:
Richard M. Stallman 1997-07-24 03:36:42 +00:00
parent 2c9210580b
commit ae5ac7d044
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/iswitchb.el
View File

@ -697,9 +697,13 @@ current frame, rather than all frames, regardless of value of
(defun iswitchb-get-bufname (win)
"Used by `iswitchb-get-buffers-in-frames' to walk through all windows."
(setq iswitchb-bufs-in-frame
(cons (buffer-name (window-buffer win))
iswitchb-bufs-in-frame)))
(let ((buf (buffer-name (window-buffer win))))
(if (not (member buf iswitchb-bufs-in-frame))
;; Only add buf if it is not already in list.
;; This prevents same buf in two different windows being
;; put into the list twice.
(setq iswitchb-bufs-in-frame
(cons buf iswitchb-bufs-in-frame)))))
;;; FIND MATCHING BUFFERS