diff options
| author | Joakim Verona | 2013-01-10 00:04:21 +0100 |
|---|---|---|
| committer | Joakim Verona | 2013-01-10 00:04:21 +0100 |
| commit | 09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3 (patch) | |
| tree | 9376433d772aa4a302b231af1c601bcb4440c9f1 /lisp/comint.el | |
| parent | 0f9ee7aa0e6b57e28b31699a912356c24b959b01 (diff) | |
| parent | 51fb5578777d1041feaab31651b65e09e1731d33 (diff) | |
| download | emacs-09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3.tar.gz emacs-09708f70bd02e7a2edec79e1bcfd04fb9b7f48d3.zip | |
auto upstream
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index e797fe841d3..42ac08a9ecc 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1847,9 +1847,9 @@ Similarly for Soar, Scheme, etc." | |||
| 1847 | (let ((echo-len (- comint-last-input-end | 1847 | (let ((echo-len (- comint-last-input-end |
| 1848 | comint-last-input-start))) | 1848 | comint-last-input-start))) |
| 1849 | ;; Wait for all input to be echoed: | 1849 | ;; Wait for all input to be echoed: |
| 1850 | (while (and (accept-process-output proc) | 1850 | (while (and (> (+ comint-last-input-end echo-len) |
| 1851 | (> (+ comint-last-input-end echo-len) | ||
| 1852 | (point-max)) | 1851 | (point-max)) |
| 1852 | (accept-process-output proc) | ||
| 1853 | (zerop | 1853 | (zerop |
| 1854 | (compare-buffer-substrings | 1854 | (compare-buffer-substrings |
| 1855 | nil comint-last-input-start | 1855 | nil comint-last-input-start |