summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/fortran.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 253134636d4..be43ac0f6cd 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -189,7 +189,7 @@ typed."
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 @@ This variable used in fixed format mode.")
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 @@ subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t" fortran-continuation-strin
(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)