Mercurial > emacs
comparison lisp/progmodes/python.el @ 61086:bf4917ef8f38
(python-preoutput-filter): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 29 Mar 2005 14:12:23 +0000 |
| parents | 758ff54158e2 |
| children | 7b4e7e55f61b 4da4a09e8b1b |
comparison
equal
deleted
inserted
replaced
| 61085:6519d9f54165 | 61086:bf4917ef8f38 |
|---|---|
| 1125 (setq python-preoutput-result (match-string 1 s)) | 1125 (setq python-preoutput-result (match-string 1 s)) |
| 1126 "") | 1126 "") |
| 1127 ((string-match ".*\n" s) | 1127 ((string-match ".*\n" s) |
| 1128 s) | 1128 s) |
| 1129 ((or (eq t (compare-strings s nil nil "_emacs_ok\n" nil (length s))) | 1129 ((or (eq t (compare-strings s nil nil "_emacs_ok\n" nil (length s))) |
| 1130 (eq t (compare-strings s nil nil "_emacs_out " nil | 1130 (let ((end (min (length "_emacs_out ") (length s)))) |
| 1131 (min (length "_emacs_out ") (length s))))) | 1131 (eq t (compare-strings s nil end "_emacs_out " nil end)))) |
| 1132 (setq python-preoutput-leftover s) | 1132 (setq python-preoutput-leftover s) |
| 1133 "") | 1133 "") |
| 1134 (t s))) | 1134 (t s))) |
| 1135 | 1135 |
| 1136 ;;;###autoload | 1136 ;;;###autoload |