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

(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> 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): * emerge.el (emerge-show-file-name):
* calc/calc.el (calc-quit): * calc/calc.el (calc-quit):
* calc/calc-misc.el (calc-big-or-small): * calc/calc-misc.el (calc-big-or-small):
......
...@@ -1544,8 +1544,8 @@ for consistency of block types and labels (if present), and ...@@ -1544,8 +1544,8 @@ for consistency of block types and labels (if present), and
completes outermost block if `f90-smart-end' is non-nil. completes outermost block if `f90-smart-end' is non-nil.
Interactively, pushes mark before moving point." Interactively, pushes mark before moving point."
(interactive "p") (interactive "p")
(if (called-interactively-p 'interactive) ;; Can move some distance.
(push-mark (point) t)) ; can move some distance (if (called-interactively-p 'any) (push-mark (point) t))
(and num (< num 0) (f90-beginning-of-block (- num))) (and num (< num 0) (f90-beginning-of-block (- num)))
(let ((f90-smart-end (if f90-smart-end 'no-blink)) ; for final match-end (let ((f90-smart-end (if f90-smart-end 'no-blink)) ; for final match-end
(case-fold-search t) (case-fold-search t)
...@@ -1601,7 +1601,7 @@ Checks for consistency of block types and labels (if present). ...@@ -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. Does not check the outermost block, because it may be incomplete.
Interactively, pushes mark before moving point." Interactively, 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) (f90-end-of-block (- num))) (and num (< num 0) (f90-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