Commit 7938ab41 authored by Glenn Morris's avatar Glenn Morris

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

Also push mark in the macro case.
parent d47afbc0
2009-10-06 Glenn Morris <rgm@gnu.org>
* 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):
......
......@@ -1544,8 +1544,8 @@ for consistency of block types and labels (if present), and
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 @@ Checks for consistency of block types and labels (if present).
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))
......
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