 
      ;; 指定されたバッファが存在するなら、追加する
      (lambda (blist)
-       (dolist (bname '("*scratch*" "*Package*" "*Help*")
-                      blist)
-         (let ((b (kui/find-buffer-by-name bname)))
-           (if b (push b blist)))))
+       (let ((target-bname-list (list "*scratch*" "*Package*" "*Help*"
+                                      (buffer-name (current-buffer)))))
+         (append blist
+                 (remove-if 'not
+                            (mapcar 'kui/find-buffer-by-name
+                                    target-bname-list))))
 
      ;; *scratch* が無かったら作る
      (lambda (blist)

  "Return buffer named BNAME.
Return nil if not found BNAME buffer."
  (kui/find-buffer-if
   (lambda (b) (string-match-p bname (buffer-name b)))))
;; (kui/find-buffer-by-name "*scratch*")

;; *scratch* バッファに切り替え（消してしまっていたら作成）
(defun kui/switch-to-scratch-buffer ()

           (save-excursion
             (kui/switch-to-scratch-buffer)))
       blist)
     ))

  ;; 左に表示されるボタンを消す
