Преглед изворни кода

rm eshell frame buffer func

pull/1/head
10sr пре 12 година
родитељ
комит
105bb6ea0e
1 измењених фајлова са 0 додато и 19 уклоњено
  1. +0
    -19
      emacs.el

+ 0
- 19
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))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 最終更新日時を得る



Loading…
Откажи
Сачувај