mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(fortran-imenu-generic-expression): Match

Browse source 
<type>*<mumble> and un-named block data, allow some continuations.
This commit is contained in:
Dave Love 1997-11-18 23:21:34 +00:00
parent 6beba8e0b2
commit 240e9cda7d
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/progmodes/fortran.el
View file

@ -370,19 +370,23 @@ This variable used in TAB format mode.")
"Default expressions to highlight in Fortran mode.")
(defvar fortran-imenu-generic-expression
(list
(list
nil
;; Lines are: 1. leading whitespace; 2. function declaration
;; with optional type, e.g. `real', `double precision', [which
;; will be fooled by `end function' allowed by G77]; 3. untyped
;; declarations; 4. the name to index.
;; These patterns could be confused by sequence nos. in cols 72+ and
;; don't allow continuations everywhere.
'((nil
;; Lines below are: 1. leading whitespace; 2. function
;; declaration with optional type, e.g. `real', `real*4',
;; character(*), `double precision' and possible statement
;; continuation; 3. untyped declarations; 4. the variable to
;; index. [This will be fooled by `end function' allowed by G77.
;; Also, it assumes sensible whitespace is employed.]
"^\\s-+\\(\
\\(\\sw\\|\\s-\\)*\\<function\\|\
subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t]+\
\\(\\sw\\|\\s-\\|[*()+]\\)*\\<function\\|\
subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t+]+\
\\(\\sw+\\)"
3))
"imenu generic expression for `imenu-ci-default-create-index-function'.")
3)
;; Un-named block data
(nil "^\\s-+\\(block\\s-*data\\)\\s-*$" 1))
"imenu generic expression for `imenu-default-create-index-function'.")
(defvar fortran-mode-map ()
"Keymap used in Fortran mode.")