[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/dcl-mode.el
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/dcl-mode.el |
Date: |
Tue, 27 Nov 2001 10:53:02 -0500 |
Index: emacs/lisp/progmodes/dcl-mode.el
diff -u emacs/lisp/progmodes/dcl-mode.el:1.7
emacs/lisp/progmodes/dcl-mode.el:1.8
--- emacs/lisp/progmodes/dcl-mode.el:1.7 Wed Feb 7 18:28:21 2001
+++ emacs/lisp/progmodes/dcl-mode.el Tue Nov 27 10:52:51 2001
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/dcl-mode.el,
Sam Steingold <=