mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 12:20:17 -08:00
Code Issues Projects Releases Wiki Activity

Make compat aliases obsolete in fortran.el

Browse source 
* lisp/progmodes/fortran.el (fortran-indent-new-line)
(fortran-auto-fill-mode): Make compat aliases obsolete; update
callers.
This commit is contained in:
Stefan Kangas 2022-08-09 13:20:07 +02:00
parent 4abeb61fc9
commit 0a044f9405
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/fortran.el
View file

@ -1117,7 +1117,7 @@ Auto-indent does not happen if a numeric ARG is used."
(eq ?\t (char-after (line-beginning-position))) (eq ?\t (char-after (line-beginning-position)))
(not (or (eq last-command 'fortran-indent-line) (not (or (eq last-command 'fortran-indent-line)
(eq last-command (eq last-command
'fortran-indent-new-line)))) 'reindent-then-newline-and-indent))))
(save-excursion (save-excursion
(re-search-backward "[^ \t0-9]" (re-search-backward "[^ \t0-9]"
(line-beginning-position) (line-beginning-position)
@ -1586,10 +1586,6 @@ Return point or nil."
(if (< (current-column) cfi) (if (< (current-column) cfi)
(move-to-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 () (defun fortran-indent-subprogram ()
"Properly indent the Fortran subprogram containing point." "Properly indent the Fortran subprogram containing point."
(interactive "*") (interactive "*")
@ -1926,9 +1922,6 @@ If ALL is nil, only match comments that start in column > 0."
;; Result. ;; Result.
(nth 3 parse-state)))))) (nth 3 parse-state))))))
;; From old version.
(defalias 'fortran-auto-fill-mode 'auto-fill-mode)
(defun fortran-fill () (defun fortran-fill ()
"Fill the current line at an appropriate point(s)." "Fill the current line at an appropriate point(s)."
(let* ((auto-fill-function #'fortran-auto-fill) (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])) :active (not (lookup-key (current-local-map) [menu-bar index]))
:help "Add an index menu to the menu-bar"])) :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) (provide 'fortran)
;;; fortran.el ends here ;;; fortran.el ends here