From: Thien-Thi Nguyen <ttn@gnuvola.org> Date: Thu, 24 Mar 2005 21:00:12 +0000 (+0000) Subject: (dcl-imenu-generic-expression): Update quasiquote/unquote syntax. X-Git-Tag: ttn-vms-21-2-B2~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8db643e1bedbbd80051fd72f3e724bb231bd861d;p=emacs.git (dcl-imenu-generic-expression): Update quasiquote/unquote syntax. --- diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index f323a24e492..b52e004e5bb 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -258,13 +258,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 @@ -2216,4 +2215,5 @@ otherwise return nil." (run-hooks 'dcl-mode-load-hook) ; for your customizations +;;; arch-tag: e00d421b-f26c-483e-a8bd-af412ea7764a ;;; dcl-mode.el ends here