- 134 名前：>>126 mailto:sage [2015/07/25(土) 16:23:49.67 ID:5OkOVd1q0.net]
- こんな感じ
(defvar fakecygpty-program-list)
(setq fakecygpty-program-list '(""))
(defvar fakecygpty-buffer-name-regexp)
(setq fakecygpty-buffer-name-regexp "^\\(*shell\\|*tramp\\)")
(defun ad-start-process-to-fake (orig-fun &rest args)
(when (and (or process-connection-type
(member (replace-regexp-in-string "\\.exe$" "" (file-name-nondirectory (nth 2 args)))
fakecygpty-program-list))
(string-match fakecygpty-buffer-name-regexp
(if (bufferp (nth 1 args))
(buffer-name (nth 1 args))
(nth 1 args))))
(setcdr (nthcdr 2 args) (cons (nth 2 args) (nthcdr 3 args)))
(setcar (nthcdr 2 args) "fakecygpty")
(message "start process via fakecygpty"))
(apply orig-fun args))
(advice-add 'start-process :around #'ad-start-process-to-fake '((depth . -100)))
|
 |
