diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-10-06 02:48:44 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-10-06 02:48:44 +0000 |
| commit | d47afbc0b0e45845fff95d52af8668b4e18f5473 (patch) | |
| tree | 31544b717b89460886ef137d2d93b4c113d67456 /lisp/progmodes/fortran.el | |
| parent | 0c2b6f8e179c16908f1d3ce046ebddb4a861ce3e (diff) | |
| download | emacs-d47afbc0b0e45845fff95d52af8668b4e18f5473.tar.gz | |
(fortran-end-of-block, fortran-beginning-of-block):
Also push mark in the macro case.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 02346c14967..efdfa559720 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1295,7 +1295,7 @@ If NUM is negative, go backward to the start of a block. 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-beginning-of-block (- num))) (let ((case-fold-search t) (count (or num 1))) @@ -1328,7 +1328,7 @@ blocks. If NUM is negative, go forward to the end of a block. 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))) |