>From 4af06390facb39fba2d150da296b6ede96c8cef4 Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Mon, 30 Sep 2013 00:30:28 -0700 Subject: [PATCH] TRAMP processes no longer delete their buffer contents after (point) --- lisp/net/tramp-sh.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 4bc836b..96cf9d2 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -2730,9 +2730,10 @@ the result will be a local, non-Tramp, filename." ;; We call `tramp-maybe-open-connection', in order ;; to cleanup the prompt afterwards. (catch 'suppress - (tramp-maybe-open-connection v) - (widen) - (delete-region mark (point)) + (let ((point-prompt-start (point))) + (tramp-maybe-open-connection v) + (widen) + (delete-region point-prompt-start (point))) (narrow-to-region (point-max) (point-max)) ;; Now do it. (if command -- 1.8.3.2