[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el [lexbind] |
Date: |
Thu, 11 Nov 2004 23:47:50 -0500 |
Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.56.2.5
emacs/lisp/progmodes/f90.el:1.56.2.6
*** emacs/lisp/progmodes/f90.el:1.56.2.5 Tue Jul 6 09:14:29 2004
--- emacs/lisp/progmodes/f90.el Fri Nov 12 04:21:21 2004
***************
*** 1223,1236 ****
With optional argument NUM, go forward that many balanced blocks.
If NUM is negative, go backward to the start of a block.
Checks for consistency of block types and labels (if present),
! and completes outermost block if necessary."
(interactive "p")
(if (and num (< num 0)) (f90-beginning-of-block (- num)))
(let ((f90-smart-end nil) ; for the final `f90-match-end'
(case-fold-search t)
(count (or num 1))
start-list start-this start-type start-label end-type end-label)
! (if (interactive-p) (push-mark (point) t))
(end-of-line) ; probably want this
(while (and (> count 0) (re-search-forward f90-blocks-re nil 'move))
(beginning-of-line)
--- 1223,1238 ----
With optional argument NUM, go forward that many balanced blocks.
If NUM is negative, go backward to the start of a block.
Checks for consistency of block types and labels (if present),
! and completes outermost block if necessary.
! Some of these things (which?) are not done if NUM is nil,
! which only happens in a noninteractive call."
(interactive "p")
(if (and num (< num 0)) (f90-beginning-of-block (- num)))
(let ((f90-smart-end nil) ; for the final `f90-match-end'
(case-fold-search t)
(count (or num 1))
start-list start-this start-type start-label end-type end-label)
! (if num (push-mark (point) t))
(end-of-line) ; probably want this
(while (and (> count 0) (re-search-forward f90-blocks-re nil 'move))
(beginning-of-line)
***************
*** 1266,1272 ****
(end-of-line))
(if (> count 0) (error "Missing block end"))
;; Check outermost block.
! (if (interactive-p)
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t0-9")
--- 1268,1274 ----
(end-of-line))
(if (> count 0) (error "Missing block end"))
;; Check outermost block.
! (if num
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t0-9")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el [lexbind],
Miles Bader <=