mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(fortran-end-of-block, fortran-beginning-of-block):

Browse Source 
Also push mark in the macro case.
This commit is contained in:
Glenn Morris 2009-10-06 02:48:44 +00:00
parent 0c2b6f8e17
commit d47afbc0b0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/fortran.el
View File

@ -1295,7 +1295,7 @@ If NUM is negative, go backward to the start of a block. 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-beginning-of-block (- num)))
(let ((case-fold-search t)
(count (or num 1)))
@ -1328,7 +1328,7 @@ blocks. If NUM is negative, go forward to the end of a block.
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)))