Mercurial > emacs
changeset 105480:1442290ab9b2
(fortran-end-of-block, fortran-beginning-of-block):
Also push mark in the macro case.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 06 Oct 2009 02:48:44 +0000 |
| parents | 4a9dc19db3b9 |
| children | 19b028e1b57f |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Tue Oct 06 02:45:26 2009 +0000 +++ b/lisp/progmodes/fortran.el Tue Oct 06 02:48:44 2009 +0000 @@ -1295,7 +1295,7 @@ not check for consistency of block types. Interactively, pushes mark before moving point." (interactive "p") - (if (called-interactively-p 'interactive) (push-mark (point) t)) + (if (called-interactively-p 'any) (push-mark (point) t)) (and num (< num 0) (fortran-beginning-of-block (- num))) (let ((case-fold-search t) (count (or num 1))) @@ -1328,7 +1328,7 @@ Does not check for consistency of block types. Interactively, pushes mark before moving point." (interactive "p") - (if (called-interactively-p 'interactive) (push-mark (point) t)) + (if (called-interactively-p 'any) (push-mark (point) t)) (and num (< num 0) (fortran-end-of-block (- num))) (let ((case-fold-search t) (count (or num 1)))