From: Glenn Morris <rgm@gnu.org>
Date: Tue, 6 Oct 2009 02:48:44 +0000 (+0000)
Subject: (fortran-end-of-block, fortran-beginning-of-block):
X-Git-Tag: emacs-pretest-23.1.90~911
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d47afbc0b0e45845fff95d52af8668b4e18f5473;p=emacs.git

(fortran-end-of-block, fortran-beginning-of-block):
Also push mark in the macro case.
---

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)))