diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-05 12:23:00 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-05 12:23:00 +0200 |
| commit | ab810804370b791749c6db5fdfef1be1a08e9903 (patch) | |
| tree | 7c493eab8ec72c3e3245f8030e07ce0903f6f187 /lisp/progmodes/perl-mode.el | |
| parent | 250f09d2f3927a650329dfb1165670f3d9b5bb5b (diff) | |
| download | emacs-ab810804370b791749c6db5fdfef1be1a08e9903.tar.gz | |
Make two perl-mode aliases obsolete
* lisp/progmodes/perl-mode.el (indent-perl-exp)
(mark-perl-function): Make obsolete.
Diffstat (limited to 'lisp/progmodes/perl-mode.el')
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 5 |
1 files 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 |