From 280e554878f25318f94e032f8acde6281905aa2e Mon Sep 17 00:00:00 2001 From: Ian Kelling Date: Tue, 1 Jul 2014 17:26:01 -0700 Subject: [PATCH] fix smartparen integration bug --- spray.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/spray.el b/spray.el index 4155926..afefae2 100644 --- a/spray.el +++ b/spray.el @@ -91,6 +91,7 @@ (defvar spray--saved-cursor-type nil) (defvar spray--saved-buffer-face nil) (defvar spray--saved-restriction nil) +(defvar spray--saved-smartparens-enabled nil) ;; * utility functions @@ -115,7 +116,12 @@ (cons (point-min) (point-max))) spray--saved-buffer-face (and (boundp 'buffer-face-mode) buffer-face-mode - buffer-face-mode-face)) + buffer-face-mode-face) + spray--saved-smartparens-enabled (and (boundp 'smartparens-mode) + smartparens-mode)) + ;; smartparens wrapping of all letter binds can cause problems. + ;; for example, it can cause auto-complete to activate + (and spray--saved-smartparens-enabled (smartparens-mode -1)) (setq cursor-type nil) (let ((buffer-face-mode-face `(:height ,spray-height))) (buffer-face-mode 1)) @@ -125,6 +131,7 @@ (overlay-put spray--accent-overlay 'face 'spray-accent-face) (spray-start)) (t + (and spray--saved-smartparens-enabled (smartparens-mode 1)) (setq cursor-type spray--saved-cursor-type) (if spray--saved-restriction (narrow-to-region (car spray--saved-restriction) -- 2.30.2