Emacs Part 43

[0654 名無しさん＠お腹いっぱい。 2013/10/19(土) 21:03:13.77]

>>650
自分でこんなの考えてみました。こんなんでいいんだろうか..。とりあえず動きました。
(defun shell-input-waiting-p (buffer-name)
(interactive)
(with-current-buffer buffer-name
(save-excursion
(comint-goto-process-mark)
(not (bolp)))))