ソースを参照

emacs.el: Remove my-term-shell-command: now term-run package this feature

pull/5/head
10sr 9年前
コミット
db3a1ebed2
1個のファイルの変更0行の追加54行の削除
  1. +0
    -54
      emacs.el

+ 0
- 54
emacs.el ファイルの表示

@@ -2358,60 +2358,6 @@ If ARG is given or called with prefix argument, create new buffer."
"--cached"
file))))

(defvar term-shell-command-history nil
"History for term-shell-command.")
(defun my-term-shell-command (command &optional new-buffer-p)
"Run COMMAND in terminal emulator.
If NEW-BUFFER-P is given or called with prefix argument, generate new buffer
and set the buffer the process buffer. Otherwise, existing buffer will be used."
(interactive (list (read-shell-command "Shell Command: "
nil
'term-shell-command-history)
current-prefix-arg))
(let* ((name (car (split-string command
" ")))
(buf (if new-buffer-p
(generate-new-buffer "*term shell command*")
(get-buffer-create "*term shell command*")))
(proc (get-buffer-process buf))
(dir default-directory))
(and proc
(delete-process proc))
(display-buffer buf)
(with-current-buffer buf
(cd dir)
(set (make-local-variable 'term-scroll-to-bottom-on-output)
t)
(let ((inhibit-read-only t))
(goto-char (point-max))
(insert "\n")
(insert "Start executing "
command)
(add-text-properties (point-at-bol)
(point-at-eol)
'(face bold))
(insert "\n\n"))
(require 'term)
(term-mode)
(term-exec buf
(concat "term-" name)
shell-file-name
nil
(list shell-command-switch
command))
(term-char-mode)
(if (ignore-errors (get-buffer-process buf))
(set-process-sentinel (get-buffer-process buf)
(lambda (proc change)
(with-current-buffer (process-buffer proc)
(term-sentinel proc change)
(goto-char (point-max))
(fundamental-mode))))
(fundamental-mode)
(goto-char (point-max))
))))
(define-key ctl-x-map ":" 'my-term-shell-command)

(defun memo (&optional dir)
"Open memo.txt in DIR."
(interactive)


読み込み中…
キャンセル
保存