master ab81080437 2/6: Make two perl-mode aliases obsolete

[Stefan Kangas]

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

    Make two perl-mode aliases obsolete
    
    * lisp/progmodes/perl-mode.el (indent-perl-exp)
    (mark-perl-function): Make obsolete.
---
 lisp/progmodes/perl-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 92b47ce88f..70cb460568 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -1120,7 +1120,6 @@ Returns (parse-state) if line starts inside a string."
         (t (forward-char -1) (forward-comment (- (point))) t)))))
 
 ;; note: this may be slower than the c-mode version, but I can understand it.
-(defalias 'indent-perl-exp 'perl-indent-exp)
 (defun perl-indent-exp ()
   "Indent each line of the Perl grouping following point."
   (interactive)
@@ -1220,7 +1219,6 @@ With argument, repeat that many times; negative args move 
backward."
              (goto-char (point-min)))))
       (setq arg (1+ arg)))))
 
-(defalias 'mark-perl-function 'perl-mark-function)
 (defun perl-mark-function ()
   "Put mark at end of Perl function, point at beginning."
   (interactive)
@@ -1230,6 +1228,9 @@ With argument, repeat that many times; negative args move 
backward."
   (perl-beginning-of-function)
   (backward-paragraph))
 
+(define-obsolete-function-alias 'indent-perl-exp #'perl-indent-exp "29.1")
+(define-obsolete-function-alias 'mark-perl-function #'perl-mark-function 
"29.1")
+
 (provide 'perl-mode)
 
 ;;; perl-mode.el ends here