diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-03-29 14:12:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-03-29 14:12:23 +0000 |
| commit | 9f3f6a1854cfb2baad2cd5729432dcf36a9a0dcc (patch) | |
| tree | 9bc239183d019bf097cd6c978e1bff3f21d9ae37 /lisp/progmodes/python.el | |
| parent | d70299080162eab4a35d4048e6df26f23a048683 (diff) | |
| download | emacs-9f3f6a1854cfb2baad2cd5729432dcf36a9a0dcc.tar.gz | |
(python-preoutput-filter): Fix last change.
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 10845b23630..5073f2bc23a 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -1127,8 +1127,8 @@ Don't save anything for STR matching `inferior-python-filter-regexp'." ((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))) |