Browse Source

Merge pull request #396 from climatewarrior/fix-org-bindings

Unbind conflicting prelude-mode keys.
custom
Bozhidar Batsov 12 years ago
parent
commit
5b3c4e26e8
  1. 19
      modules/prelude-org.el

19
modules/prelude-org.el

@ -38,12 +38,19 @@
(global-set-key "\C-cb" 'org-iswitchb)
(setq org-log-done t)
;; (defun 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)))
(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)
(add-hook 'org-mode-hook (lambda () (run-hooks 'prelude-org-mode-hook)))
(provide 'prelude-org)

Loading…
Cancel
Save