mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

Make two perl-mode aliases obsolete

Browse Source 
* lisp/progmodes/perl-mode.el (indent-perl-exp)
(mark-perl-function): Make obsolete.
This commit is contained in:
Stefan Kangas 2022-08-05 12:23:00 +02:00
parent 250f09d2f3
commit ab81080437
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/perl-mode.el
View File

@ -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