[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes fortran.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes fortran.el |
Date: |
Tue, 06 Oct 2009 02:48:44 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/10/06 02:48:44
Modified files:
lisp/progmodes : fortran.el
Log message:
(fortran-end-of-block, fortran-beginning-of-block):
Also push mark in the macro case.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/fortran.el?cvsroot=emacs&r1=1.156&r2=1.157
Patches:
Index: fortran.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/fortran.el,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -b -r1.156 -r1.157
--- fortran.el 2 Oct 2009 03:48:46 -0000 1.156
+++ fortran.el 6 Oct 2009 02:48:44 -0000 1.157
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/progmodes fortran.el,
Glenn Morris <=