Commit d47afbc0 authored by Glenn Morris's avatar Glenn Morris

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

Also push mark in the macro case.
parent 0c2b6f8e
...@@ -1295,7 +1295,7 @@ If NUM is negative, go backward to the start of a block. Does ...@@ -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 not check for consistency of block types. Interactively, pushes
mark before moving point." mark before moving point."
(interactive "p") (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))) (and num (< num 0) (fortran-beginning-of-block (- num)))
(let ((case-fold-search t) (let ((case-fold-search t)
(count (or num 1))) (count (or num 1)))
...@@ -1328,7 +1328,7 @@ blocks. If NUM is negative, go forward to the end of a block. ...@@ -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, Does not check for consistency of block types. Interactively,
pushes mark before moving point." pushes mark before moving point."
(interactive "p") (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))) (and num (< num 0) (fortran-end-of-block (- num)))
(let ((case-fold-search t) (let ((case-fold-search t)
(count (or num 1))) (count (or num 1)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment