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 ;; kuso-mode is not loaded
(let () (let ()
;; before initiazing mode ;; 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 ;; i really found toolbar and scrollbar useless so i disabled them
(if tool-bar-mode (tool-bar-mode)) (if tool-bar-mode (tool-bar-mode))
(if scroll-bar-mode (scroll-bar-mode)) (if scroll-bar-mode (scroll-bar-mode))
(menu/init-menu) (menu/init-menu)
;; after mode was initialized ;; after mode was initialized
(run-hooks kuso-postinit-mode-hook) (run-hooks 'kuso-postinit-mode-hook)
) )
;; kuso-mode already loaded ;; kuso-mode already loaded
(let () (let ()
;; before deactivating mode ;; before deactivating mode
(run-hooks kuso-prerm-mode-hook) (run-hooks 'kuso-prerm-mode-hook)
;; return everything to normal ;; return everything to normal
(if (not tool-bar-mode) (tool-bar-mode)) (if (not tool-bar-mode) (tool-bar-mode))
(if (not scroll-bar-mode) (scroll-bar-mode)) (if (not scroll-bar-mode) (scroll-bar-mode))
(menu/destruct-menu) (menu/destruct-menu)
;; after deactivating mode ;; 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 ;; Functions
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
(defun init-menus () "Draw required menu for C mode" (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 (kbd "\C-x n k") 'kmodule)
(define-key global-map [menu-bar file new-proj cproj kmodule] '("Kernel Module" . 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 () (defun init-main-menu ()
"Initialize the C plugin menu under Kuso menus." "Initialize the C plugin menu under Kuso menus."
(interactive) (interactive)
(define-key-after global-map [menu-bar file new-proj cproj] (cons "C/C++" (make-sparse-keymap "c-cpp-proj")))
) )
(defun initial-keymap () (defun initial-keymap ()
@ -138,7 +137,7 @@ binding for Kuso IDE C projects section."
;; Initializing c menus at the load time ;; Initializing c menus at the load time
(init-menus) (init-menus)
(add-hook 'kuso-postinit-mode-hook 'init-main-menu)
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
;; Minor Modes ;; Minor Modes
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
@ -154,17 +153,17 @@ This mode provide C language plugin for Kuso IDE."
;; kuso-cplugin-mode is not loaded ;; kuso-cplugin-mode is not loaded
(let () (let ()
;; before initiazing mode ;; before initiazing mode
(run-hooks kuso-cplug-preinit-hook) (run-hooks 'kuso-cplug-preinit-hook)
(initial-keymap) (initial-keymap)
;; after mode was initialized ;; after mode was initialized
(run-hooks kuso-cplug-postinit-hook) (run-hooks 'kuso-cplug-postinit-hook)
) )
;; kuso-mode already loaded ;; kuso-mode already loaded
(let () (let ()
;; before deactivating mode ;; before deactivating mode
(run-hooks kuso-cplug-prerm-hook) (run-hooks 'kuso-cplug-prerm-hook)
;; after deactivating mode ;; after deactivating mode
(run-hooks kuso-cplug-postrm-hook) (run-hooks 'kuso-cplug-postrm-hook)
) )
) )
) )