From 29cb2fdd0c09235a91282f54e81c9856e39bd3ca Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 21 Oct 2020 15:25:45 +0200 Subject: [PATCH] Declare old compat aliases in tcl.el obsolete * lisp/progmodes/tcl.el (tcl-uncomment-region) (tcl-indent-for-comment, add-log-tcl-defun, indent-tcl-exp) (calculate-tcl-indent, tcl-beginning-of-defun, tcl-end-of-defun) (tcl-mark-defun, tcl-mark): Make obsolete. --- lisp/progmodes/tcl.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index 33aad2d39f7..717008a0a22 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -1555,21 +1555,21 @@ The first line is assumed to look like \"#!.../program ...\"." (char-to-string char))) string "")) + + ;; -;; Bug reporting. +;; Obsolete. ;; - -;; These are relics kept "just in case". -(defalias 'tcl-uncomment-region 'uncomment-region) -(defalias 'tcl-indent-for-comment 'comment-indent) -(defalias 'add-log-tcl-defun 'tcl-add-log-defun) -(defalias 'indent-tcl-exp 'tcl-indent-exp) -(defalias 'calculate-tcl-indent 'tcl-calculate-indent) -(defalias 'tcl-beginning-of-defun 'beginning-of-defun) -(defalias 'tcl-end-of-defun 'end-of-defun) -(defalias 'tcl-mark-defun 'mark-defun) -(defun tcl-mark () (mark t)) +(define-obsolete-function-alias 'tcl-uncomment-region #'uncomment-region "28.1") +(define-obsolete-function-alias 'tcl-indent-for-comment #'comment-indent "28.1") +(define-obsolete-function-alias 'add-log-tcl-defun #'tcl-add-log-defun "28.1") +(define-obsolete-function-alias 'indent-tcl-exp #'tcl-indent-exp "28.1") +(define-obsolete-function-alias 'calculate-tcl-indent #'tcl-calculate-indent "28.1") +(define-obsolete-function-alias 'tcl-beginning-of-defun #'beginning-of-defun "28.1") +(define-obsolete-function-alias 'tcl-end-of-defun #'end-of-defun "28.1") +(define-obsolete-function-alias 'tcl-mark-defun #'mark-defun "28.1") +(defun tcl-mark () (declare (obsolete nil "28.1")) (mark t)) (provide 'tcl) -- 2.39.2