# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1254797342 0
# Node ID 19b028e1b57fd0462f2c93a4776159517a3680d0
# Parent  1442290ab9b2107f5d96fb6b88d40987ce28d6b2
(f90-end-of-block, f90-beginning-of-block):
Also push mark in the macro case.

diff -r 1442290ab9b2 -r 19b028e1b57f lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Oct 06 02:48:44 2009 +0000
+++ b/lisp/ChangeLog	Tue Oct 06 02:49:02 2009 +0000
@@ -1,5 +1,10 @@
 2009-10-06  Glenn Morris  <rgm@gnu.org>
 
+	* progmodes/f90.el (f90-end-of-block, f90-beginning-of-block):
+	* progmodes/fortran.el (fortran-end-of-block)
+	(fortran-beginning-of-block):
+	Also push mark in the macro case.
+
 	* emerge.el (emerge-show-file-name):
 	* calc/calc.el (calc-quit):
 	* calc/calc-misc.el (calc-big-or-small):
diff -r 1442290ab9b2 -r 19b028e1b57f lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Tue Oct 06 02:48:44 2009 +0000
+++ b/lisp/progmodes/f90.el	Tue Oct 06 02:49:02 2009 +0000
@@ -1544,8 +1544,8 @@
 completes outermost block if `f90-smart-end' is non-nil.
 Interactively, pushes mark before moving point."
   (interactive "p")
-  (if (called-interactively-p 'interactive)
-      (push-mark (point) t)) ; can move some distance
+  ;; Can move some distance.
+  (if (called-interactively-p 'any) (push-mark (point) t))
   (and num (< num 0) (f90-beginning-of-block (- num)))
   (let ((f90-smart-end (if f90-smart-end 'no-blink)) ; for final match-end
         (case-fold-search t)
@@ -1601,7 +1601,7 @@
 Does not check the outermost block, because it may be incomplete.
 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) (f90-end-of-block (- num)))
   (let ((case-fold-search t)
         (count (or num 1))