FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dpaste plugin menu bug fixed

This commit is contained in:
Sameer Rahmani 2011-01-03 14:47:06 +03:30
parent bb2c767359
commit 6f21d9a009
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/plugins/dpaste.el
View File

@ -59,7 +59,7 @@ binding for Kuso IDE dpaste plugin"
(defun init-keymap () (defun init-keymap ()
"Initialize the keymap for dpaste plugin." "Initialize the keymap for dpaste plugin."
(define-key kuso-dpaste-map (kbd "\C-x p d") 'dpaste-region) (define-key kuso-dpaste-map (kbd "\C-x p d") 'dpaste-region)
(define-key kuso-dpaste-map (kbd "\C-x p d") 'dpaste-buffer) (define-key kuso-dpaste-map (kbd "\C-x p f") 'dpaste-buffer)
) )
(defun init-menus () (defun init-menus ()
@ -68,7 +68,7 @@ binding for Kuso IDE dpaste plugin"
(define-key-after global-map [menu-bar edit dpastereg] '("Dpaste Selected" . dpaste-region) 'sep1) (define-key-after global-map [menu-bar edit dpastereg] '("Dpaste Selected" . dpaste-region) 'sep1)
(define-key-after global-map [menu-bar edit dpastebuf] '("Dpaste Buffer" . dpaste-buffer) 'dpastereg) (define-key-after global-map [menu-bar edit dpastebuf] '("Dpaste Buffer" . dpaste-buffer) 'dpastereg)
(define-key global-map [menu-bar edit sep2] '("--") 'dpastebuf) (define-key-after global-map [menu-bar edit sep2] '("--") 'dpastebuf)
) )
(defun destruct-menus () (defun destruct-menus ()
@ -78,6 +78,7 @@ binding for Kuso IDE dpaste plugin"
(global-unset-key [menu-bar edit dpastereg]) (global-unset-key [menu-bar edit dpastereg])
(global-unset-key [menu-bar edit dpastebuf]) (global-unset-key [menu-bar edit dpastebuf])
) )
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
;; Minor Modes ;; Minor Modes
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
@ -94,13 +95,13 @@ the current buffer."
:global t :global t
:group 'kuso-group :group 'kuso-group
(if kuso-cplugin-mode (if kuso-dpaste-mode
;; kuso-cplugin-mode is not loaded ;; kuso-cplugin-mode is not loaded
(let () (let ()
;; before initiazing mode ;; before initiazing mode
(run-hooks 'kuso-dpaste-preinit-hook) (run-hooks 'kuso-dpaste-preinit-hook)
(init-keymap) (init-keymap)
(init-menus (init-menus)
;; after mode was initialized ;; after mode was initialized
(run-hooks 'kuso-dpaste-postinit-hook) (run-hooks 'kuso-dpaste-postinit-hook)
) )
@ -114,5 +115,3 @@ the current buffer."
) )
) )
) )