Mercurial > emacs

comparison lisp/progmodes/dcl-mode.el @ 41608:45db352a0971

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Converted backquote to the new style.
author Sam Steingold <sds@gnu.org>
date Tue, 27 Nov 2001 15:52:52 +0000
parents a21a0d45ea19
children 5a5a4566e9f7
comparison
equal deleted inserted replaced
41607:58e03d744b9f 41608:45db352a0971
235 "*Imenu menu title for sub-listing with CALL statements." 235 "*Imenu menu title for sub-listing with CALL statements."
236 :type 'string 236 :type 'string
237 :group 'dcl) 237 :group 'dcl)
238 238
239 (defcustom dcl-imenu-generic-expression 239 (defcustom dcl-imenu-generic-expression
240 (` 240 `((nil "^\\$[ \t]*\\([A-Za-z0-9_\$]+\\):[ \t]+SUBROUTINE\\b" 1)
241 ((nil "^\\$[ \t]*\\([A-Za-z0-9_\$]+\\):[ \t]+SUBROUTINE\\b" 1) 241 (,dcl-imenu-label-labels
242 ((, dcl-imenu-label-labels)
243 "^\\$[ \t]*\\([A-Za-z0-9_\$]+\\):\\([ \t]\\|$\\)" 1) 242 "^\\$[ \t]*\\([A-Za-z0-9_\$]+\\):\\([ \t]\\|$\\)" 1)
244 ((, dcl-imenu-label-goto) "\\s-GOTO[ \t]+\\([A-Za-z0-9_\$]+\\)" 1) 243 (,dcl-imenu-label-goto "\\s-GOTO[ \t]+\\([A-Za-z0-9_\$]+\\)" 1)
245 ((, dcl-imenu-label-gosub) "\\s-GOSUB[ \t]+\\([A-Za-z0-9_\$]+\\)" 1) 244 (,dcl-imenu-label-gosub "\\s-GOSUB[ \t]+\\([A-Za-z0-9_\$]+\\)" 1)
246 ((, dcl-imenu-label-call) "\\s-CALL[ \t]+\\([A-Za-z0-9_\$]+\\)" 1))) 245 (,dcl-imenu-label-call "\\s-CALL[ \t]+\\([A-Za-z0-9_\$]+\\)" 1))
247 "*Default imenu generic expression for DCL. 246 "*Default imenu generic expression for DCL.
248 247
249 The default includes SUBROUTINE labels in the main listing and 248 The default includes SUBROUTINE labels in the main listing and
250 sub-listings for other labels, CALL, GOTO and GOSUB statements. 249 sub-listings for other labels, CALL, GOTO and GOSUB statements.
251 See `imenu-generic-expression' for details." 250 See `imenu-generic-expression' for details."