mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* comint.el (comint-redirect-results-list-from-process): Fix

Browse source 
infinite loop.
This commit is contained in:
Leo Liu 2013-06-21 17:37:04 +08:00
parent d80a808f8d
commit aed838b5ab
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/comint.el
View file

@ -3733,12 +3733,13 @@ REGEXP-GROUP is the regular expression group in REGEXP to use."
;; Skip past the command, if it was echoed
(and (looking-at command)
(forward-line))
(while (re-search-forward regexp nil t)
(while (and (not (eobp))
(re-search-forward regexp nil t))
(push (buffer-substring-no-properties
(match-beginning regexp-group)
(match-end regexp-group))
results))
results)))
(nreverse results))))
;; Converting process modes to use comint mode
;; ===========================================================================