From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 14 Oct 2008 05:53:56 +0000 (+0000)
Subject: * net/tramp.el (tramp-process-one-action): Embed regexp in
X-Git-Tag: emacs-pretest-23.0.90~2495
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/95d610cb981ef34896c67f5f07ccb2cff698693c

* net/tramp.el (tramp-process-one-action): Embed regexp in
parentheses, before adding end-of-buffer construct.  Suggested by
Markus Triska <markus.triska@gmx.at>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1220878679..1f9e909b1a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-14  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-process-one-action): Embed regexp in
+	parentheses, before adding end-of-buffer construct.  Suggested by
+	Markus Triska <markus.triska@gmx.at>.
+
 2008-10-13  Ulf Jasper  <ulf.jasper@web.de>
 
 	* net/newst-plainview.el (w3m-toggle-inline-image):
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 68f75eb777..84917dc8df 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5641,7 +5641,7 @@ The terminal type can be configured with `tramp-terminal-type'."
       (setq todo actions)
       (while todo
 	(setq item (pop todo))
-	(setq pattern (concat (symbol-value (nth 0 item)) "\\'"))
+	(setq pattern (format "\\(%s\\)\\'" (symbol-value (nth 0 item))))
 	(setq action (nth 1 item))
 	(tramp-message
 	 vec 5 "Looking for regexp \"%s\" from remote shell" pattern)