diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 13:20:07 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 13:20:07 +0200 |
| commit | 0a044f9405bea977a0f87fa1b777d16a11f4911a (patch) | |
| tree | ba9e69e1a32f524044fea5a9cf2a62c5cdd457d6 | |
| parent | 4abeb61fc966fe708b26abcad13fc229ed44bc5d (diff) | |
| download | emacs-0a044f9405bea977a0f87fa1b777d16a11f4911a.tar.gz emacs-0a044f9405bea977a0f87fa1b777d16a11f4911a.tar.bz2 emacs-0a044f9405bea977a0f87fa1b777d16a11f4911a.zip | |
Make compat aliases obsolete in fortran.el
* lisp/progmodes/fortran.el (fortran-indent-new-line)
(fortran-auto-fill-mode): Make compat aliases obsolete; update
callers.
| -rw-r--r-- | lisp/progmodes/fortran.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 786c5ae8042..58d7a2026eb 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1117,7 +1117,7 @@ Auto-indent does not happen if a numeric ARG is used." (eq ?\t (char-after (line-beginning-position))) (not (or (eq last-command 'fortran-indent-line) (eq last-command - 'fortran-indent-new-line)))) + 'reindent-then-newline-and-indent)))) (save-excursion (re-search-backward "[^ \t0-9]" (line-beginning-position) @@ -1586,10 +1586,6 @@ Return point or nil." (if (< (current-column) cfi) (move-to-column cfi))))) -;; Historically this was a separate function which advertised itself -;; as reindenting but only did so where `most likely to be necessary'. -(defalias 'fortran-indent-new-line 'reindent-then-newline-and-indent) - (defun fortran-indent-subprogram () "Properly indent the Fortran subprogram containing point." (interactive "*") @@ -1926,9 +1922,6 @@ If ALL is nil, only match comments that start in column > 0." ;; Result. (nth 3 parse-state)))))) -;; From old version. -(defalias 'fortran-auto-fill-mode 'auto-fill-mode) - (defun fortran-fill () "Fill the current line at an appropriate point(s)." (let* ((auto-fill-function #'fortran-auto-fill) @@ -2215,6 +2208,9 @@ arg DO-SPACE prevents stripping the whitespace." :active (not (lookup-key (current-local-map) [menu-bar index])) :help "Add an index menu to the menu-bar"])) +(define-obsolete-function-alias 'fortran-indent-new-line #'reindent-then-newline-and-indent "29.1") +(define-obsolete-function-alias 'fortran-auto-fill-mode #'auto-fill-mode "29.1") + (provide 'fortran) ;;; fortran.el ends here |