From c4c42b2e438cb9c28b36c44c17e710ec1debacbc Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 2 Feb 1999 19:35:29 +0000 Subject: [PATCH] (mark-fortran-subprogram): Activate mark here... (fortran-narrow-to-subprogram, fortran-indent-subprogram): ... not here. --- lisp/progmodes/fortran.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index ca75eae67f2..af6aee0f64b 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -980,7 +980,7 @@ Auto-indent does not happen if a numeric ARG is used." The marks are pushed." (interactive) (end-of-fortran-subprogram) - (push-mark (point)) + (push-mark (point) nil t) (beginning-of-fortran-subprogram)) (defun fortran-previous-statement () @@ -1034,9 +1034,8 @@ non-comment Fortran statement in the file, and nil otherwise." The subprogram visible is the one that contains or follows point." (interactive) (save-excursion - (let ((mark-active t)) - (mark-fortran-subprogram) - (narrow-to-region (point) (mark))))) + (mark-fortran-subprogram) + (narrow-to-region (point) (mark)))) (defmacro fortran-with-subprogram-narrowing (&rest forms) "Execute FORMS with buffer temporarily narrowed to current subprogram. @@ -1344,10 +1343,9 @@ An abbrev before point is expanded if variable `abbrev-mode' is non-nil." "Properly indent the Fortran subprogram which contains point." (interactive) (save-excursion - (let ((mark-active t)) - (mark-fortran-subprogram) - (message "Indenting subprogram...") - (indent-region (point) (mark) nil))) + (mark-fortran-subprogram) + (message "Indenting subprogram...") + (indent-region (point) (mark) nil)) (message "Indenting subprogram...done.")) (defun fortran-calculate-indent () -- 2.39.2