mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 03:37:38 -08:00
Code Issues Projects Releases Wiki Activity

* tramp.el (tramp-wait-for-output): Ignore escape sequences in the

Browse source 
prompt.
This commit is contained in:
Michael Albinus 2007-11-05 20:52:29 +00:00
parent dbcd6179d3
commit bdbeca7b20
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-11-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-wait-for-output): Ignore escape sequences in
the prompt.
2007-10-05 Chris Moore <christopher.ian.moore@gmail.com>
* wdired.el (wdired-use-dired-vertical-movement): Doc fix.

4
lisp/net/tramp.el
View file

@ -6197,7 +6197,9 @@ function waits for output unless NOOUTPUT is set."
(let ((found
(tramp-wait-for-regexp
proc timeout
(format "^%s\r?$" (regexp-quote tramp-end-of-output)))))
;; Initially, `tramp-end-of-output' is "$ ". There might
;; be leading escape sequences, which must be ignored.
(format "^[^$\n]*%s\r?$" (regexp-quote tramp-end-of-output)))))
(if found
(let (buffer-read-only)
(goto-char (point-max))