From ab810804370b791749c6db5fdfef1be1a08e9903 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 5 Aug 2022 12:23:00 +0200 Subject: [PATCH] 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 92b47ce88f6..70cb4605683 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 -- 2.39.2