master 29cb2fd: Declare old compat aliases in tcl.el obsolete

[Stefan Kangas]

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

    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 33aad2d..717008a 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)