# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1112105543 0
# Node ID bf4917ef8f386dea572ff010e104157659ff889e
# Parent  6519d9f5416531d4a990015e4d0431b0a818494d
(python-preoutput-filter): Fix last change.

diff -r 6519d9f54165 -r bf4917ef8f38 lisp/progmodes/python.el
--- a/lisp/progmodes/python.el	Tue Mar 29 13:59:41 2005 +0000
+++ b/lisp/progmodes/python.el	Tue Mar 29 14:12:23 2005 +0000
@@ -1127,8 +1127,8 @@
 	((string-match ".*\n" s)
 	 s)
 	((or (eq t (compare-strings s nil nil "_emacs_ok\n" nil (length s)))
-	     (eq t (compare-strings s nil nil "_emacs_out " nil
-				    (min (length "_emacs_out ") (length s)))))
+	     (let ((end (min (length "_emacs_out ") (length s))))
+	       (eq t (compare-strings s nil end "_emacs_out " nil end))))
 	 (setq python-preoutput-leftover s)
 	 "")
         (t s)))