[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog progmodes/f90.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog progmodes/f90.el |
Date: |
Tue, 06 Oct 2009 02:49:06 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/f90.el,
Glenn Morris <=