From 77689ea32d7c1ae0f5268a4f02043f72e0a7147b Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sat, 17 Sep 2005 18:20:40 +0000 Subject: [PATCH] (shell-resync-dirs): Handle echoing processes more reliably. Don't insert resync command if `comint-process-echoes' is non-nil. --- lisp/ChangeLog | 6 ++++++ lisp/shell.el | 21 ++++++++++++++------- 2 files changed, 20 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c43fe74793b..34e055cf5b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-09-17 Romain Francoise + + * shell.el (shell-resync-dirs): Handle echoing processes more + reliably. Don't insert resync command if `comint-process-echoes' + is non-nil. + 2005-09-17 Magnus Henoch * textmodes/ispell.el (ispell-aspell-supports-utf8): New variable. diff --git a/lisp/shell.el b/lisp/shell.el index 0f71d8d8205..84de8efd8df 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -797,19 +797,26 @@ command again." (let* ((proc (get-buffer-process (current-buffer))) (pmark (process-mark proc))) (goto-char pmark) - (insert shell-dirstack-query) (insert "\n") + ;; If the process echoes commands, don't insert a fake command in + ;; the buffer or it will appear twice. + (unless comint-process-echoes + (insert shell-dirstack-query) (insert "\n")) (sit-for 0) ; force redisplay (comint-send-string proc shell-dirstack-query) (comint-send-string proc "\n") (set-marker pmark (point)) - (let ((pt (point))) ; wait for 1 line + (let ((pt (point)) + (regexp + (concat + (if comint-process-echoes + ;; Skip command echo if the process echoes + (concat "\\(" (regexp-quote shell-dirstack-query) "\n\\)") + "\\(\\)") + "\\(.+\n\\)"))) ;; This extra newline prevents the user's pending input from spoofing us. (insert "\n") (backward-char 1) - (while (not (looking-at - (concat "\\(" ; skip literal echo in case of stty echo - (regexp-quote shell-dirstack-query) - "\n\\)?" ; skip if present - "\\(" ".+\n" "\\)")) ) ; what to actually look for + ;; Wait for one line. + (while (not (looking-at regexp)) (accept-process-output proc) (goto-char pt))) (goto-char pmark) (delete-char 1) ; remove the extra newline -- 2.39.5