Declare some ancient compat aliases obsolete (Bug#41328)

* lisp/comint.el (comint-read-noecho):
* lisp/emacs-lisp/edebug.el (edebug-all-defuns):
* lisp/man.el (manual-entry):
* lisp/vc/log-edit.el (vc-log-mode-map, vc-log-entry-mode): Declare
ancient backwards-compatibility aliases and functions obsolete.  The
oldest in this list was added in 1992, and the most recent in 2004.

* lisp/net/telnet.el (telnet-initial-filter): Don't use
`comint-read-noecho'.

diff --git a/lisp/comint.el b/lisp/comint.el
index ea06f8af87db8a7b43602a8946c7fbca893b79ec..4b3b583856027c0e3c083fc8dc00d8d2f3797506 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2350,6 +2350,7 @@ a buffer local variable."
 
 ;; For compatibility.
 (defun comint-read-noecho (prompt &optional _ignore)
+  (declare (obsolete read-passwd "28.1"))
   (read-passwd prompt))
 
 ;; These three functions are for entering text you don't want echoed or

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 78461185d3ae0b2a4236e1b3fe5e5296bf9496c2..a565e8f6dcb67c530b4a3304d19a59d8da3c0afa 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -555,7 +555,7 @@ already is one.)"
 
 
 ;; Compatibility with old versions.
-(defalias 'edebug-all-defuns 'edebug-all-defs)
+(define-obsolete-function-alias 'edebug-all-defuns #'edebug-all-defs "28.1")
 
 ;;;###autoload
 (defun edebug-all-defs ()

diff --git a/lisp/man.el b/lisp/man.el
index 3121334c6f94a0c2245728c07aaec63e2faca622..e1dd5037c46dff3489644219c66c3063989ecfc4 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -838,7 +838,7 @@ POS defaults to `point'."
 
 ;; For compatibility with older versions.
 ;;;###autoload
-(defalias 'manual-entry 'man)
+(define-obsolete-function-alias 'manual-entry 'man "28.1")
 
 (defvar Man-completion-cache nil
   ;; On my machine, "man -k" is so fast that a cache makes no sense,

diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index e8c0c1bbdf49c617d562ed617ca7d3a86127d90b..29c415e6a65176bd7c983e5f82f677ebabd18be0 100644 (file)
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -149,7 +149,7 @@ rejecting one login and prompting again for a username and password.")
            ((string-match "passw" string)
             (telnet-filter proc string)
             (setq telnet-count 0)
-            (process-send-string proc (concat (comint-read-noecho "Password: " t)
+            (process-send-string proc (concat (read-passwd "Password: ")
                                                telnet-new-line))
             (clear-this-command-keys))
            (t (telnet-check-software-type-initialize string)

diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 906f9a942059051401f4014679f963c19fa7e627..cd19b4e065bdb5e94c49688b7bf5b6af1225b8c0 100644 (file)
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -51,6 +51,9 @@
 \f
 ;; The main keymap
 
+(define-obsolete-variable-alias 'vc-log-mode-map 'log-edit-mode-map "28.1")
+(define-obsolete-variable-alias 'vc-log-entry-mode 'log-edit-mode-map "28.1")
+
 (easy-mmode-defmap log-edit-mode-map
   '(("\C-c\C-c" . log-edit-done)
     ("\C-c\C-a" . log-edit-insert-changelog)
@@ -67,10 +70,6 @@
   "Keymap for the `log-edit-mode' (to edit version control log messages)."
   :group 'log-edit)
 
-;; Compatibility with old names.  Should we bother ?
-(defvar vc-log-mode-map log-edit-mode-map)
-(defvar vc-log-entry-mode vc-log-mode-map)
-
 (easy-menu-define log-edit-menu log-edit-mode-map
   "Menu used for `log-edit-mode'."
   '("Log-Edit"