diff options
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 02346c14967..efdfa559720 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1295,7 +1295,7 @@ If NUM is negative, go backward to the start of a block. Does | |||
| 1295 | not check for consistency of block types. Interactively, pushes | 1295 | not check for consistency of block types. Interactively, pushes |
| 1296 | mark before moving point." | 1296 | mark before moving point." |
| 1297 | (interactive "p") | 1297 | (interactive "p") |
| 1298 | (if (called-interactively-p 'interactive) (push-mark (point) t)) | 1298 | (if (called-interactively-p 'any) (push-mark (point) t)) |
| 1299 | (and num (< num 0) (fortran-beginning-of-block (- num))) | 1299 | (and num (< num 0) (fortran-beginning-of-block (- num))) |
| 1300 | (let ((case-fold-search t) | 1300 | (let ((case-fold-search t) |
| 1301 | (count (or num 1))) | 1301 | (count (or num 1))) |
| @@ -1328,7 +1328,7 @@ blocks. If NUM is negative, go forward to the end of a block. | |||
| 1328 | Does not check for consistency of block types. Interactively, | 1328 | Does not check for consistency of block types. Interactively, |
| 1329 | pushes mark before moving point." | 1329 | pushes mark before moving point." |
| 1330 | (interactive "p") | 1330 | (interactive "p") |
| 1331 | (if (called-interactively-p 'interactive) (push-mark (point) t)) | 1331 | (if (called-interactively-p 'any) (push-mark (point) t)) |
| 1332 | (and num (< num 0) (fortran-end-of-block (- num))) | 1332 | (and num (< num 0) (fortran-end-of-block (- num))) |
| 1333 | (let ((case-fold-search t) | 1333 | (let ((case-fold-search t) |
| 1334 | (count (or num 1))) | 1334 | (count (or num 1))) |