Browse Source

rm buffer cycle func

pull/1/head
10sr 12 years ago
parent
commit
e8e1f43b2b
1 changed files with 0 additions and 65 deletions
  1. +0
    -65
      emacs.el

+ 0
- 65
emacs.el View File

@@ -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



Loading…
Cancel
Save