Mercurial > emacs
changeset 21079:65ac561ad75c
(fortran-column-ruler-fixed,
fortran-column-ruler-tab): Doc fix.
(fortran-mode-map): Bind fortran-narrow-to-subprogram.
(bug-fortran-mode): Variable deleted.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 06 Mar 1998 19:14:13 +0000 |
| parents | 64a6c0b65eaa |
| children | c3f53005d2d9 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)