procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* cedet/srecode/mode.el (srecode-menu-bar): Use

Browse source 
semantic-menu-item.
This commit is contained in:
Chong Yidong 2009-09-26 19:17:02 +00:00
parent b733e9bc68
commit eb1ac101af
2 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,11 @@
2009-09-26 Chong Yidong <cyd@stupidchicken.com> 2009-09-26 Chong Yidong <cyd@stupidchicken.com>
* cedet/srecode/mode.el (srecode-menu-bar): Use
semantic-menu-item.
* cedet/srecode/expandproto.el (senator-tag-ring): Declare
senator-tag-ring.
* cedet/semantic/lex.el (semantic-lex-reset-hooks): Doc fix. * cedet/semantic/lex.el (semantic-lex-reset-hooks): Doc fix.
* cedet/semantic/idle.el * cedet/semantic/idle.el

14
lisp/cedet/srecode/mode.el
View file

@ -80,19 +80,19 @@
(defvar srecode-menu-bar (defvar srecode-menu-bar
(list (list
"SRecoder" "SRecoder"
(senator-menu-item (semantic-menu-item
["Insert Template" ["Insert Template"
srecode-insert srecode-insert
:active t :active t
:help "Insert a template by name." :help "Insert a template by name."
]) ])
(senator-menu-item (semantic-menu-item
["Insert Template Again" ["Insert Template Again"
srecode-insert-again srecode-insert-again
:active t :active t
:help "Run the same template as last time again." :help "Run the same template as last time again."
]) ])
(senator-menu-item (semantic-menu-item
["Edit Template" ["Edit Template"
srecode-edit srecode-edit
:active t :active t
@ -102,7 +102,7 @@
'( "Insert ..." :filter srecode-minor-mode-templates-menu ) '( "Insert ..." :filter srecode-minor-mode-templates-menu )
`( "Generate ..." :filter srecode-minor-mode-generate-menu ) `( "Generate ..." :filter srecode-minor-mode-generate-menu )
"---" "---"
(senator-menu-item (semantic-menu-item
["Customize..." ["Customize..."
(customize-group "srecode") (customize-group "srecode")
:active t :active t
@ -110,19 +110,19 @@
]) ])
(list (list
"Debugging Tools..." "Debugging Tools..."
(senator-menu-item (semantic-menu-item
["Dump Template MAP" ["Dump Template MAP"
srecode-get-maps srecode-get-maps
:active t :active t
:help "Calculate (if needed) and display the current template file map." :help "Calculate (if needed) and display the current template file map."
]) ])
(senator-menu-item (semantic-menu-item
["Dump Tables" ["Dump Tables"
srecode-dump-templates srecode-dump-templates
:active t :active t
:help "Dump the current template table." :help "Dump the current template table."
]) ])
(senator-menu-item (semantic-menu-item
["Dump Dictionary" ["Dump Dictionary"
srecode-dictionary-dump srecode-dictionary-dump
:active t :active t