diff options
| author | Sam Steingold <sds@gnu.org> | 2001-11-27 15:52:52 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2001-11-27 15:52:52 +0000 |
| commit | 8a9463543d5b82409a24e23905d271cdebf70059 (patch) | |
| tree | 503c81c7058491327cc13ab0eff04ed5dc6dd855 /lisp/progmodes/dcl-mode.el | |
| parent | c6aedc9284492c790448cce23b0e5cc134885148 (diff) | |
| download | emacs-8a9463543d5b82409a24e23905d271cdebf70059.tar.gz | |
Converted backquote to the new style.
Diffstat (limited to 'lisp/progmodes/dcl-mode.el')
| -rw-r--r-- | lisp/progmodes/dcl-mode.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index 104495c81b5..a79da3c8308 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -237,13 +237,12 @@ never indented." :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 |