Unbind conflicting prelude-mode keys.
This commit is contained in:
parent
0e1632868e
commit
a63f62b8c0
1 changed files with 11 additions and 4 deletions
|
@ -38,12 +38,19 @@
|
|||
(global-set-key "\C-cb" 'org-iswitchb)
|
||||
(setq org-log-done t)
|
||||
|
||||
;; (defun prelude-org-mode-defaults ()
|
||||
;; )
|
||||
(defun prelude-org-mode-defaults ()
|
||||
(let ((oldmap (cdr (assoc 'prelude-mode minor-mode-map-alist)))
|
||||
(newmap (make-sparse-keymap)))
|
||||
(set-keymap-parent newmap oldmap)
|
||||
(define-key newmap (kbd "C-c +") nil)
|
||||
(define-key newmap (kbd "C-c -") nil)
|
||||
(make-local-variable 'minor-mode-overriding-map-alist)
|
||||
(push `(prelude-mode . ,newmap) minor-mode-overriding-map-alist))
|
||||
)
|
||||
|
||||
;; (setq prelude-org-mode-hook 'prelude-org-mode-defaults)
|
||||
(setq prelude-org-mode-hook 'prelude-org-mode-defaults)
|
||||
|
||||
;; (add-hook 'org-mode-hook (lambda () (run-hooks 'prelude-org-mode-hook)))
|
||||
(add-hook 'org-mode-hook (lambda () (run-hooks 'prelude-org-mode-hook)))
|
||||
|
||||
(provide 'prelude-org)
|
||||
|
||||
|
|
Loading…
Reference in a new issue