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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fd9ad36d9c2d7277635f339efdb164723b7dc0f..8b616275fa314ddf0160dd890ca667c31d8905f2 100644 (file)
--- 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 c7b37050ed267d3ffa5d23aff46d4887d5621645..28f7d1ddb46a480aee5ebcb218e946c7066245c0 100644 (file)
--- 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]*>\\)")