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'.
This commit is contained in:
parent
f7a916a618
commit
7899fa4309
5 changed files with 7 additions and 7 deletions
|
@ -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
|
||||
|
|
|
@ -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 ()
|
||||
|
|
|
@ -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,
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -51,6 +51,9 @@
|
|||
|
||||
;; 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"
|
||||
|
|
Loading…
Add table
Reference in a new issue