master d858e0a18a: Make the rsh command obsolete

[Stefan Kangas]

branch: master
commit d858e0a18acabe436ee178c85bc9feb610c4eaf8
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Make the rsh command obsolete
    
    * lisp/net/telnet.el (rsh): Make obsolete.
    (telnet-connect-command, telnet-mode): Adjust documentation for
    above change.
---
 etc/NEWS           |  4 ++--
 lisp/net/telnet.el | 13 +++++++------
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index b46f33fd67..da2b158024 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -322,8 +322,8 @@ startup.  Previously, these functions ignored
 'initial-scratch-message' and left "*scratch*" in 'fundamental-mode'.
 
 ---
-** The rlogin.el library is now obsolete.
-Use something like `M-x shell RET ssh <host> RET' instead.
+** The rlogin.el library and 'rsh' command are now obsolete.
+Use something like 'M-x shell RET ssh <host> RET' instead.
 
 
 * Changes in Emacs 29.1
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index 802e7bc0a2..bea79e8933 100644
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -23,11 +23,11 @@
 
 ;;; Commentary:
 
-;; This mode is intended to be used for telnet or rsh to a remote host;
-;; `telnet' and `rsh' are the two entry points.  Multiple telnet or rsh
-;; sessions are supported.
+;; This mode is intended to be used for telnet to a remote host;
+;; `telnet' is the entry point.  Multiple telnet sessions are
+;; supported.
 ;;
-;; Normally, input is sent to the remote telnet/rsh line-by-line, as you
+;; Normally, input is sent to the remote telnet line-by-line, as you
 ;; type RET or LFD.  C-c C-c sends a C-c to the remote immediately;
 ;; C-c C-z sends C-z immediately.  C-c C-q followed by any character
 ;; sends that character immediately.
@@ -93,7 +93,7 @@ Should be set to the number of terminal writes telnet will 
make
 rejecting one login and prompting again for a username and password.")
 
 (defvar telnet-connect-command nil
-  "Command used to start the `telnet' (or `rsh') connection.")
+  "Command used to start the `telnet' connection.")
 
 (defun telnet-interrupt-subjob ()
   "Interrupt the program running through telnet on the remote host."
@@ -244,7 +244,7 @@ Normally input is edited in Emacs and sent a line at a 
time."
 (put 'telnet-mode 'mode-class 'special)
 
 (define-derived-mode telnet-mode comint-mode "Telnet"
-  "This mode is for using telnet (or rsh) from a buffer to another host.
+  "This mode is for using telnet from a buffer to another host.
 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.
@@ -259,6 +259,7 @@ Data is sent to the remote host when RET is typed."
   "Open a network login connection to host named HOST (a string).
 Communication with HOST is recorded in a buffer `*rsh-HOST*'.
 Normally input is edited in Emacs and sent a line at a time."
+  (declare (obsolete nil "29.1"))
   (interactive "sOpen rsh connection to host: ")
   (require 'shell)
   (let ((name (concat "rsh-" host )))