From: Thien-Thi Nguyen Date: Thu, 24 Mar 2005 21:10:50 +0000 (+0000) Subject: (dcl-imenu-generic-expression): Update quasiquote/unquote syntax. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8188a59bfb2b6dadf38d491188f3cf4284d3e12;p=emacs.git (dcl-imenu-generic-expression): Update quasiquote/unquote syntax. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6befe05d5a3..0a935a172c4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-03-24 Thien-Thi Nguyen + + * progmodes/dcl-mode.el (dcl-imenu-generic-expression): + Update quasiquote/unquote syntax. + 2005-03-23 Thien-Thi Nguyen * progmodes/compile.el (compile-internal): Use "set default" for VMS. diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index f323a24e492..9b3b1aa3aa5 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