>>654
少しまともになったか。
(defun shell-input-waiting-p (buffer-name)
(with-current-buffer buffer-name
(save-excursion
(comint-goto-process-mark)
(let ((process-mark-point (point)))
(forward-line 0)
(comint-skip-prompt)
(eq (point) process-mark-point)))))