summaryrefslogtreecommitdiffstats
path: root/Misc
diff options
context:
space:
mode:
authorBarry Warsaw <barry@python.org>1998-09-25 19:40:10 (GMT)
committerBarry Warsaw <barry@python.org>1998-09-25 19:40:10 (GMT)
commit4f94c7387954129df964de202c5c27beb2d0f398 (patch)
tree9c1f3c8a9efc4942a206104a702a751c5e6135de /Misc
parent67906af81148617da6638469e97085e7485b17a0 (diff)
downloadcpython-4f94c7387954129df964de202c5c27beb2d0f398.zip
cpython-4f94c7387954129df964de202c5c27beb2d0f398.tar.gz
cpython-4f94c7387954129df964de202c5c27beb2d0f398.tar.bz2
(py-comint-output-filter-function): Horrible kludgearound for making
the de-queing of exec files work for NT XEmacs 21.0.
Diffstat (limited to 'Misc')
-rw-r--r--Misc/python-mode.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index 96da5de..e96e671 100644
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -1053,7 +1053,10 @@ comint believe the user typed this string so that
(defun py-comint-output-filter-function (string)
"Watch output for Python prompt and exec next file waiting in queue.
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-safe (delete-file (car py-file-queue)))
(setq py-file-queue (cdr py-file-queue))