(py-comint-output-filter-function): Horrible kludgearound for making

the de-queing of exec files work for NT XEmacs 21.0.
This commit is contained in:
Barry Warsaw 1998-09-25 19:40:10 +00:00
parent 67906af811
commit 4f94c73879

View file

@ -1053,7 +1053,10 @@ comint believe the user typed this string so that
(defun py-comint-output-filter-function (string) (defun py-comint-output-filter-function (string)
"Watch output for Python prompt and exec next file waiting in queue. "Watch output for Python prompt and exec next file waiting in queue.
This function is appropriate for `comint-output-filter-functions'." This function is appropriate for `comint-output-filter-functions'."
(when (and (string-equal ">>> " string) (when (and (or (string-equal string ">>> ")
;; NT XEmacs 21.0 kludge
(and (>= (length string) 5)
(string-equal (substring string -5) "\n>>> ")))
py-file-queue) py-file-queue)
(py-safe (delete-file (car py-file-queue))) (py-safe (delete-file (car py-file-queue)))
(setq py-file-queue (cdr py-file-queue)) (setq py-file-queue (cdr py-file-queue))