From 6c4cab0308a5568a84639f0b6fe6daa12dcc80b2 Mon Sep 17 00:00:00 2001 From: Deniz Dogan Date: Sat, 4 Jun 2011 13:02:37 +0200 Subject: [PATCH] * lisp/iswitchb.el (iswitchb-window-buffer-p): Use `member' instead of `memq'. Fixes: debbugs:8799 --- lisp/ChangeLog | 5 +++++ lisp/iswitchb.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 101384cee7d..81de3b4b0f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-06-04 Deniz Dogan + + * iswitchb.el (iswitchb-window-buffer-p): Use `member' instead of + `memq' (Bug#8799). + 2011-06-02 Stefan Monnier * subr.el (make-progress-reporter): Add "..." by default (bug#8785). diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index e0da2563c1a..c782295c794 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -1118,10 +1118,9 @@ Return the modified list with the last element prepended to it." If BUFFER is visible in the current frame, return nil." (interactive) (let ((blist (iswitchb-get-buffers-in-frames 'current))) - ;;If the buffer is visible in current frame, return nil - (if (memq buffer blist) - nil - ;; maybe in other frame or icon + ;; If the buffer is visible in current frame, return nil + (when (member buffer blist) + ;; maybe in other frame or icon (get-buffer-window buffer 0) ; better than 'visible ))) -- 2.11.4.GIT