From 105bb6ea0e976984f2808e3edfdd7037d28c129a Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 1 Feb 2012 18:08:43 +0900
Subject: [PATCH] rm eshell frame buffer func

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

diff --git a/emacs.el b/emacs.el
index 4f4a6eb..55b561d 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1418,20 +1418,6 @@ Optional prefix ARG says how many lines to unflag; default is one line."
            (point))
     (backward-delete-char 1)))
 
-(defvar my-eshell-frame-buffer-alist nil)
-
-(defun my-eshell-frame-buffer (frame)
-  "get buffer associated with FRAME. if buffer doesnt exist or killed, return nil."
-  (let ((bf (cdr (assq frame my-eshell-frame-buffer-alist))))
-    (and bf                            ;関連付けられたバッファが存在し
-         (buffer-name bf)              ;かつkillされてない
-         bf)))
-
-(add-hook 'eshell-mode-hook
-          (lambda ()
-            (add-to-list 'my-eshell-frame-buffer-alist
-                         (cons (selected-frame) (current-buffer)))))
-
 (defun my-file-owner-p (file)
   "t if FILE is owned by me."
   (eq (user-uid) (nth 2 (file-attributes file))))
@@ -1604,11 +1590,6 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 ;;      ;; (eshell/alias "ut" "ssh g841105@un001.ecc.u-tokyo.ac.jp")
 ;;      (add-to-list 'recentf-exclude (concat eshell-directory-name "alias"))))
 
-;; (define-key my-prefix-map (kbd "C-s") (lambda ()
-;;                                         (interactive)
-;;                                         (eshell-cd-default-directory (buffer-name (or (my-eshell-frame-buffer (selected-frame))
-;;                                                                                       (eshell t))))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 最終更新日時を得る