瀏覽代碼

emacs.el: my-term: Call with prefix argument to create new buffer

pull/5/head
10sr 10 年之前
父節點
當前提交
2685e9ad83
共有 1 個檔案被更改,包括 5 行新增3 行删除
  1. +5
    -3
      emacs.el

+ 5
- 3
emacs.el 查看文件

@@ -2272,9 +2272,11 @@ This function accept no argument and return newly created buffer of terminal.")


(defun my-term (&optional arg) (defun my-term (&optional arg)
"Open terminal buffer and return that buffer. "Open terminal buffer and return that buffer.
ARG is ignored."

If ARG is given or called with prefix argument, create new buffer."
(interactive "P") (interactive "P")
(if (and my-term
(if (and (not arg)
my-term
(buffer-name my-term)) (buffer-name my-term))
(pop-to-buffer my-term) (pop-to-buffer my-term)
(setq my-term (setq my-term
@@ -2292,7 +2294,7 @@ ARG is ignored."
;; (multi-term) ;; (multi-term)
;; (ansi-term shell-file-name))))) ;; (ansi-term shell-file-name)))))


(setq my-term-function 'eshell)
(setq my-term-function (lambda () (eshell t)))
;;(define-key my-prefix-map (kbd "C-s") 'my-term) ;;(define-key my-prefix-map (kbd "C-s") 'my-term)
(define-key ctl-x-map "i" 'my-term) (define-key ctl-x-map "i" 'my-term)




Loading…
取消
儲存