Inhibit autopair in org-mode (fixes redguardtoo#38)

plasmabal · Jul 4, 2012 · c7461a1 · c7461a1
1 parent 1eee2b7
commit c7461a1
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/init-editing-utils.el b/init-editing-utils.el
@@ -53,6 +53,10 @@
 (setq autopair-autowrap t)
 (autopair-global-mode t)
 
+(defun inhibit-autopair ()
+  "Prevent autopair from enabling in the current buffer."
+  (setq autopair-dont-activate t)
+  (autopair-mode -1))
 
 ;;----------------------------------------------------------------------------
 ;; Fix per-window memory of buffer point positions

diff --git a/init-lisp.el b/init-lisp.el
@@ -36,8 +36,7 @@
 ;; Compatibility with other modes
 
 (defadvice enable-paredit-mode (before disable-autopair activate)
-  (setq autopair-dont-activate t)
-  (autopair-mode -1))
+  (inhibit-autopair))
 
 (suspend-mode-during-cua-rect-selection 'paredit-mode)
 

diff --git a/init-org.el b/init-org.el
@@ -74,5 +74,6 @@
      ;;(require 'org-checklist)
      (require 'org-fstree)))
 
+(add-hook 'org-mode-hook 'inhibit-autopair)
 
 (provide 'init-org)
diff --git a/init-slime.el b/init-slime.el
@@ -16,7 +16,7 @@
      (setq slime-complete-symbol*-fancy t)
      (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
 
-     (add-hook 'sldb-mode-hook #'(lambda () (setq autopair-dont-activate t)))
+     (add-hook 'sldb-mode-hook 'inhibit-autopair)
 
      ;; Stop SLIME's REPL from grabbing DEL, which is annoying when backspacing over a '('
      (defun override-slime-repl-bindings-with-paredit ()