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