[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.75 emacs/lisp/progmodes/f90.el:1.76
*** emacs/lisp/progmodes/f90.el:1.75    Mon May 17 18:52:51 2004
--- emacs/lisp/progmodes/f90.el Thu Nov  4 10:16:51 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")