Mercurial > emacs
diff lisp/progmodes/dcl-mode.el @ 41608:45db352a0971
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 |
line wrap: on
line diff
--- a/lisp/progmodes/dcl-mode.el Tue Nov 27 05:26:27 2001 +0000 +++ b/lisp/progmodes/dcl-mode.el Tue Nov 27 15:52:52 2001 +0000 @@ -237,13 +237,12 @@ :group 'dcl) (defcustom dcl-imenu-generic-expression - (` - ((nil "^\\$[ \t]*\\([A-Za-z0-9_\$]+\\):[ \t]+SUBROUTINE\\b" 1) - ((, dcl-imenu-label-labels) + `((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))) + (,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