From d2884bee734b59482e3b33e2751ec8244c51dee7 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Thu, 29 Nov 2012 12:24:49 +0900 Subject: [PATCH] remove unused function --- emacs.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/emacs.el b/emacs.el index 28da04c..dc05beb 100644 --- a/emacs.el +++ b/emacs.el @@ -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)