From 7938ab41f519585bb9c0ebd36673a1c464da723a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 6 Oct 2009 02:49:02 +0000 Subject: [PATCH] (f90-end-of-block, f90-beginning-of-block): Also push mark in the macro case. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/f90.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 086a82bd3f0..18d49b98817 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2009-10-06 Glenn Morris + * 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 --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 49f908c99f9..3a0fe1dfad7 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1544,8 +1544,8 @@ for consistency of block types and labels (if present), and 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 @@ Checks for consistency of block types and labels (if present). 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)) -- 2.39.2