Variable: dcl-imenu-generic-expression
dcl-imenu-generic-expression is a customizable variable defined in
dcl-mode.el.gz.
Value
((nil "^\\$[ ]*\\([A-Za-z0-9_$]+\\):[ ]+SUBROUTINE\\b" 1)
("Labels" "^\\$[ ]*\\([A-Za-z0-9_$]+\\):\\([ ]\\|$\\)" 1)
("GOTO" "\\s-GOTO[ ]+\\([A-Za-z0-9_$]+\\)" 1)
("GOSUB" "\\s-GOSUB[ ]+\\([A-Za-z0-9_$]+\\)" 1)
("CALL" "\\s-CALL[ ]+\\([A-Za-z0-9_$]+\\)" 1))
Documentation
Default imenu generic expression for DCL.
The default includes SUBROUTINE labels in the main listing and
sub-listings for other labels, CALL, GOTO and GOSUB statements.
See imenu-generic-expression for details.
Source Code
;; Defined in /usr/src/emacs/lisp/progmodes/dcl-mode.el.gz
(defcustom dcl-imenu-generic-expression
`((nil "^\\$[ \t]*\\([A-Za-z0-9_$]+\\):[ \t]+SUBROUTINE\\b" 1)
(,dcl-imenu-label-labels
"^\\$[ \t]*\\([A-Za-z0-9_$]+\\):\\([ \t]\\|$\\)" 1)
(,dcl-imenu-label-goto "\\s-GOTO[ \t]+\\([A-Za-z0-9_$]+\\)" 1)
(,dcl-imenu-label-gosub "\\s-GOSUB[ \t]+\\([A-Za-z0-9_$]+\\)" 1)
(,dcl-imenu-label-call "\\s-CALL[ \t]+\\([A-Za-z0-9_$]+\\)" 1))
"Default imenu generic expression for DCL.
The default includes SUBROUTINE labels in the main listing and
sub-listings for other labels, CALL, GOTO and GOSUB statements.
See `imenu-generic-expression' for details."
:type '(repeat (sexp :tag "Imenu Expression")))