From 665de981f3e9ead846af83604aa0ca2db28f636a Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sat, 28 Jan 2012 23:14:43 +0900
Subject: [PATCH] rm my-frame-buffer-get2

---
 emacs.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/emacs.el b/emacs.el
index 98c5247..6833e4b 100644
--- a/emacs.el
+++ b/emacs.el
@@ -820,17 +820,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
              (or frame
                  (selected-frame))))
 
-(defun my-frame-buffer-get2 (&optional frame)
-  ""
-  (delq nil (mapcar (lambda (buf)
-                      (if (or t (buffer-file-name buf))
-                          buf
-                        nil))
-                    (cdr (assq 'buffer-list
-                               (frame-parameters (or frame
-                                                     (selected-frame))))))))
-(my-frame-buffer-get2)
-
 (defun my-frame-buffer-kill-all-buffer (frame)
   ""
   (mapcar 'kill-buffer
@@ -899,7 +888,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
 (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
 (add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))
-(add-to-list 'bs-configurations '("this-frame2" nil (lambda (buf) (memq buf (my-frame-buffer-get2))) ".*" nil nil))
 ;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)
 ;;                               '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))
 (setq bs-default-configuration "this-frame")