pouya-abbassi
/
FG42
forked from FG42/FG42
1
0
Fork 0
Code Pull Requests Activity

Menu system bug fixed

This commit is contained in:
Sameer Rahmani 2011-01-03 10:19:01 +03:30
parent 15f9c1892f
commit 29fa27d654
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/modes.el
View File

@ -75,25 +75,25 @@ This mode provide a basic configuration for an IDE."
;; kuso-mode is not loaded
(let ()
;; before initiazing mode
(run-hooks kuso-preinit-mode-hook)
(run-hooks 'kuso-preinit-mode-hook)
;; i really found toolbar and scrollbar useless so i disabled them
(if tool-bar-mode (tool-bar-mode))
(if scroll-bar-mode (scroll-bar-mode))
(menu/init-menu)
;; after mode was initialized
(run-hooks kuso-postinit-mode-hook)
(run-hooks 'kuso-postinit-mode-hook)
)
;; kuso-mode already loaded
(let ()
;; before deactivating mode
(run-hooks kuso-prerm-mode-hook)
(run-hooks 'kuso-prerm-mode-hook)
;; return everything to normal
(if (not tool-bar-mode) (tool-bar-mode))
(if (not scroll-bar-mode) (scroll-bar-mode))
(menu/destruct-menu)
;; after deactivating mode
(run-hooks kuso-postrm-mode-hook)
(run-hooks 'kuso-postrm-mode-hook)
)
)
)

13
src/plugins/cproject.el
View File

@ -65,7 +65,6 @@ binding for Kuso IDE C projects section."
;; Functions
;; ---------------------------------------------------------------------
(defun init-menus () "Draw required menu for C mode"
(define-key-after global-map [menu-bar file new-proj cproj] (cons "C/C++" (make-sparse-keymap "c-cpp-proj")))
(define-key global-map (kbd "\C-x n k") 'kmodule)
(define-key global-map [menu-bar file new-proj cproj kmodule] '("Kernel Module" . kmodule))
@ -128,7 +127,7 @@ binding for Kuso IDE C projects section."
(defun init-main-menu ()
"Initialize the C plugin menu under Kuso menus."
(interactive)
(define-key-after global-map [menu-bar file new-proj cproj] (cons "C/C++" (make-sparse-keymap "c-cpp-proj")))
)
(defun initial-keymap ()
@ -138,7 +137,7 @@ binding for Kuso IDE C projects section."
;; Initializing c menus at the load time
(init-menus)
(add-hook 'kuso-postinit-mode-hook 'init-main-menu)
;; ----------------------------------------------------------------------
;; Minor Modes
;; ----------------------------------------------------------------------
@ -154,17 +153,17 @@ This mode provide C language plugin for Kuso IDE."
;; kuso-cplugin-mode is not loaded
(let ()
;; before initiazing mode
(run-hooks kuso-cplug-preinit-hook)
(run-hooks 'kuso-cplug-preinit-hook)
(initial-keymap)
;; after mode was initialized
(run-hooks kuso-cplug-postinit-hook)
(run-hooks 'kuso-cplug-postinit-hook)
)
;; kuso-mode already loaded
(let ()
;; before deactivating mode
(run-hooks kuso-cplug-prerm-hook)
(run-hooks 'kuso-cplug-prerm-hook)
;; after deactivating mode
(run-hooks kuso-cplug-postrm-hook)
(run-hooks 'kuso-cplug-postrm-hook)
)
)
)