Browse Source

remove unused function

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

+ 1
- 8
emacs.el View File

@@ -1098,8 +1098,6 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(when (lazy-load-eval 'bs '(bs-show)
;; (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)))
@@ -1118,12 +1116,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(setq bs-default-configuration "files")
;; (and bs--show-all
;; (call-interactively 'bs-toggle-show-all))
(set (make-local-variable 'scroll-margin) 0)))
(defun buffer-same-dir-p (bf)
"return t if BF's dir is same as current dir, otherwise nil."
(let ((cdir (expand-file-name default-directory)))
(with-current-buffer bf
(equal (expand-file-name default-directory) cdir)))))
(set (make-local-variable 'scroll-margin) 0))))

(iswitchb-mode 1)



Loading…
Cancel
Save