[Emacs-diffs] emacs/lisp ChangeLog progmodes/f90.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/06 02:49:05

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : f90.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16370&r2=1.16371
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/f90.el?cvsroot=emacs&r1=1.123&r2=1.124

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16370
retrieving revision 1.16371
diff -u -b -r1.16370 -r1.16371
--- ChangeLog   6 Oct 2009 02:42:29 -0000       1.16370
+++ ChangeLog   6 Oct 2009 02:49:02 -0000       1.16371
@@ -1,5 +1,10 @@
 2009-10-06  Glenn Morris  <address@hidden>
 
+       * 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):

Index: progmodes/f90.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/f90.el,v
retrieving revision 1.123
retrieving revision 1.124
diff -u -b -r1.123 -r1.124
--- progmodes/f90.el    2 Oct 2009 03:48:45 -0000       1.123
+++ progmodes/f90.el    6 Oct 2009 02:49:05 -0000       1.124
@@ -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))