Mercurial > emacs

comparison lisp/cedet/cedet.el @ 104523:18ae68cd64bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* cedet/ede.el (global-ede-mode-map): Move menu to global-ede-mode-map. (ede-minor-mode, global-ede-mode): Use define-minor-mode. * cedet/semantic.el (semantic-mode-map): Use cedet-menu-map. * cedet/cedet.el (cedet-menu-map): New var. Don't require Semantic etc.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 27 Sep 2009 17:50:53 +0000
parents 5dcce8f7fa66
children fbd55cc47b77
comparison
equal deleted inserted replaced
104522:2a2b8ae24b17 104523:18ae68cd64bd
32 ;; compatibility with the upstream, stand-alone CEDET distribution. 32 ;; compatibility with the upstream, stand-alone CEDET distribution.
33 33
34 (eval-when-compile 34 (eval-when-compile
35 (require 'cl)) 35 (require 'cl))
36 36
37 (declare-function inversion-find-version "inversion")
38
37 (defconst cedet-version "1.0pre7" 39 (defconst cedet-version "1.0pre7"
38 "Current version of CEDET.") 40 "Current version of CEDET.")
39
40 (require 'eieio)
41 (require 'semantic)
42 (require 'srecode)
43 (require 'ede)
44 (require 'speedbar)
45 41
46 (defconst cedet-packages 42 (defconst cedet-packages
47 `( 43 `(
48 ;;PACKAGE MIN-VERSION 44 ;;PACKAGE MIN-VERSION
49 (cedet ,cedet-version) 45 (cedet ,cedet-version)
52 (srecode "1.0pre7") 48 (srecode "1.0pre7")
53 (ede "1.0pre7") 49 (ede "1.0pre7")
54 (speedbar "1.0.3")) 50 (speedbar "1.0.3"))
55 "Table of CEDET packages to install.") 51 "Table of CEDET packages to install.")
56 52
57 (declare-function inversion-find-version "inversion") 53 (defvar cedet-menu-map ;(make-sparse-keymap "CEDET menu")
54 (let ((map (make-sparse-keymap "CEDET menu")))
55 (define-key map [semantic-force-refresh] 'undefined)
56 (define-key map [semantic-edit-menu] 'undefined)
57 (define-key map [navigate-menu] 'undefined)
58 (define-key map [semantic-options-separator] 'undefined)
59 (define-key map [global-semantic-highlight-func-mode] 'undefined)
60 (define-key map [global-semantic-highlight-func-mode] 'undefined)
61 (define-key map [global-semantic-decoration-mode] 'undefined)
62 (define-key map [global-semantic-idle-completions-mode] 'undefined)
63 (define-key map [global-semantic-idle-summary-mode] 'undefined)
64 (define-key map [global-semanticdb-minor-mode] 'undefined)
65 (define-key map [global-semantic-idle-scheduler-mode] 'undefined)
66 (define-key map [semantic-menu-separator] '("--"))
67 (define-key map [semantic-mode]
68 '(menu-item "Enable parsers (Semantic)" semantic-mode
69 :help "Enable language parsers (Semantic)"
70 :visible (not (bound-and-true-p semantic-mode))))
71 (define-key map [cedet-menu-separator] 'undefined)
72 (define-key map [ede-mode]
73 '(menu-item "Enable Projects (EDE)" global-ede-mode
74 :help "Enable the Emacs Development Environment (EDE)"
75 :visible (not (bound-and-true-p global-ede-mode))))
76 (define-key map [ede-menu-separator] '("--"))
77 (define-key map [ede-find-file] 'undefined)
78 (define-key map [ede-speedbar] 'undefined)
79 (define-key map [ede] 'undefined)
80 (define-key map [ede-new] 'undefined)
81 (define-key map [ede-target-options] 'undefined)
82 (define-key map [ede-project-options] 'undefined)
83 (define-key map [ede-build-forms-menu] 'undefined)
84 map)
85 "Menu keymap for the CEDET package.
86 This is used by `semantic-mode' and `global-ede-mode'.")
58 87
59 (defun cedet-version () 88 (defun cedet-version ()
60 "Display all active versions of CEDET and Dependant packages. 89 "Display all active versions of CEDET and Dependant packages.
61 90
62 The PACKAGE column is the name of a given package from CEDET. 91 The PACKAGE column is the name of a given package from CEDET.