   "Return buffer named BNAME.
 Return nil if not found BNAME buffer."
   (kui/find-buffer-if
-   (lambda (b) (string-match-p bname (buffer-name b)))))
+   (lambda (b) (string-equal bname (buffer-name b)))))
 ;; (kui/find-buffer-by-name "*scratch*")
+
+(defun kui/find-buffer-by-name-regexp (bname-regexp)
+  "Return buffer named a name matched BNAME-REGEXP.
+Return nil if not found BNAME buffer."
+  (kui/find-buffer-if
+   (lambda (b) (string-match-p bname-regexp (buffer-name b)))))
 
 ;; *scratch* バッファに切り替え（消してしまっていたら作成）
 (defun kui/switch-to-scratch-buffer ()

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

     ;; 現在のバッファを追加
     (lambda (blist)
       (cons (current-buffer) blist))
     ))

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


     ;; 指定されたバッファが存在するなら、追加する
     (lambda (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)
