remove unused function

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)