# HG changeset patch # User Dave Love # Date 889211653 0 # Node ID 65ac561ad75c07d43c9aeeec6197cd0bf91bb9f0 # Parent 64a6c0b65eaadf0402f54995b2d6d6f1bbacbf6c (fortran-column-ruler-fixed, fortran-column-ruler-tab): Doc fix. (fortran-mode-map): Bind fortran-narrow-to-subprogram. (bug-fortran-mode): Variable deleted. diff -r 64a6c0b65eaa -r 65ac561ad75c lisp/progmodes/fortran.el --- a/lisp/progmodes/fortran.el Fri Mar 06 18:56:39 1998 +0000 +++ b/lisp/progmodes/fortran.el Fri Mar 06 19:14:13 1998 +0000 @@ -189,7 +189,7 @@ 0 60 70\n\ \[ ]|{ | | | | | | | | \ \| | | | |}\n" - "*String displayed above current line by \\[fortran-column-ruler]. + "String displayed above current line by \\[fortran-column-ruler]. This variable used in fixed format mode.") (defvar fortran-column-ruler-tab @@ -197,12 +197,9 @@ 0 60 70\n\ \[ ]| { | | | | | | | | \ \| | | | |}\n" - "*String displayed above current line by \\[fortran-column-ruler]. + "String displayed above current line by \\[fortran-column-ruler]. This variable used in TAB format mode.") -(defconst bug-fortran-mode "bug-fortran-mode@erl.mit.edu" - "Address of mailing list for Fortran mode bugs.") - (defvar fortran-mode-syntax-table nil "Syntax table in use in Fortran mode buffers.") @@ -408,6 +405,7 @@ (define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement) (define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement) (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) + (define-key fortran-mode-map "\C-xnd" 'fortran-narrow-to-subprogram) (define-key fortran-mode-map "\t" 'fortran-indent-line) (define-key fortran-mode-map "0" 'fortran-electric-line-number) (define-key fortran-mode-map "1" 'fortran-electric-line-number)