[Emacs-diffs] Changes to emacs/lisp/progmodes/dcl-mode.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/dcl-mode.el
diff -c 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,249 ****
    :group 'dcl)
  
  (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
--- 237,248 ----
    :group 'dcl)
  
  (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