Mercurial > emacs
changeset 24254:93993abff564
(mark-fortran-subprogram): Activate mark
here...
(fortran-narrow-to-subprogram, fortran-indent-subprogram): ... not
here.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 02 Feb 1999 19:35:29 +0000 |
| parents | 39d5ef228cae |
| children | c373e786127a |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Tue Feb 02 19:17:22 1999 +0000 +++ b/lisp/progmodes/fortran.el Tue Feb 02 19:35:29 1999 +0000 @@ -980,7 +980,7 @@ 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 @@ 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 @@ "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 ()