From e8e1f43b2b48c7b9af1525aefc8b3537fb04b9fe Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 2 Feb 2012 15:50:30 +0900
Subject: [PATCH] rm buffer cycle func

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

diff --git a/emacs.el b/emacs.el
index bdf2416..f5dacdd 100644
--- a/emacs.el
+++ b/emacs.el
@@ -705,10 +705,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
             (define-key view-mode-map "q" 'bury-buffer)))
 (global-set-key "\M-r" 'view-mode)
 (setq view-read-only t)
-;; (add-hook 'find-file-hook
-;;           (lambda ()
-;;             (when buffer-read-only
-;;               (view-mode 1))))
 
 (add-hook 'Man-mode-hook
           (lambda ()
@@ -899,56 +895,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
     (with-current-buffer bf
       (equal (expand-file-name default-directory) cdir))))
 
-(defun echo-buffer-list (&optional blist)
-  "echo buffer list as string. BLIST is list with buffer objects as elements.
-if arg is omitted use value of `buffer-list'."
-  (interactive)
-  (message (or (mapconcat (lambda (bf)
-                            (concat (buffer-name bf)
-                                    "\t"
-                                    (with-current-buffer bf
-                                      (symbol-name major-mode))
-                                    "\t"
-                                    (abbreviate-file-name (buffer-file-name bf))))
-                          (or blist
-                              (buffer-list))
-                          "\n")
-               "")))
-
-(defun my-buffer-list ()
-  "return buffer list."
-  (delq nil
-        (mapcar (lambda (bf)
-                  (with-current-buffer bf
-                    (and buffer-file-name
-                         bf)))
-                (buffer-list (selected-frame)))))
-
-(defvar buffer-switch-list-function 'my-buffer-list)
-
-(defun switch-to-previous-buffer-cycle (&optional silent-p)
-  ""
-  (interactive)
-  (let ((bl (funcall buffer-switch-list-function)))
-    (when bl
-      (bury-buffer (car bl))
-      (switch-to-buffer (or (nth 1 bl)
-                            (car bl)))
-      (or silent-p
-          (echo-buffer-list (funcall buffer-switch-list-function))))))
-
-(defun switch-to-next-buffer-cycle (&optional silent-p)
-  ""
-  (interactive)
-  (let* ((bl (funcall buffer-switch-list-function))
-         (bf (nth (- (length bl)
-                     1)
-                  bl)))
-    (when bl
-      (switch-to-buffer bf)
-      (or silent-p
-          (echo-buffer-list (funcall buffer-switch-list-function))))))
-
 (iswitchb-mode 1)
 
 (defun iswitchb-buffer-display-other-window ()
@@ -957,17 +903,6 @@ if arg is omitted use value of `buffer-list'."
   (let ((iswitchb-default-method 'display))
     (call-interactively 'iswitchb-buffer)))
 
-(defun switch-to-other-buffer ()
-  ""
-  (interactive)
-  (let ((buffer-switch-list-function 'buffer-list))
-    (switch-to-previous-buffer-cycle t)))
-
-(global-set-key (kbd "C-.") 'switch-to-previous-buffer-cycle)
-(global-set-key (kbd "C-,") 'switch-to-next-buffer-cycle)
-;; (global-set-key (kbd "C-\\") 'switch-to-other-buffer)
-;; (global-set-key (kbd "C-\\") 'bury-buffer)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; sdic