(telnet-mode): Set comint-use-prompt-regexp to t.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fd9ad36d9c..8b616275fa3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-03  Glenn Morris  <rgm@gnu.org>
+
+        * net/telnet.el (telnet-mode): Set comint-use-prompt-regexp to t.
+
 2007-08-02  Richard Stallman  <rms@gnu.org>
 
         * mail/rmailsum.el (rmail-make-summary-line): Find end of msg number
@@ -8,7 +12,7 @@
 
         * menu-bar.el (menu-bar-help-menu): Add "About GNU" menu item.
 
-        * startup.el (fancy-splash-head, startup-echo-area-message): 
+        * startup.el (fancy-splash-head, startup-echo-area-message):
         Change message text.
 
         * emulation/tpu-edt.el (next-line-internal): Setting deleted.
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index c7b37050ed2..28f7d1ddb46 100644
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -247,7 +247,8 @@ It has most of the same commands as comint-mode.
 There is a variable ``telnet-interrupt-string'' which is the character
 sent to try to stop execution of a job on the remote host.
 Data is sent to the remote host when RET is typed."
-  (set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern))
+  (set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern)
+  (setq comint-use-prompt-regexp t))
 
 ;;;###autoload (add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")