branch: elpa/ws-butler
commit 35daeb8673f33d8c96b2837d885e0b4623e8e708
Author: Sean Whitton <spwhit...@spwhitton.name>
Commit: Sean Whitton <spwhit...@spwhitton.name>
Refactor ws-butler-global-mode to prevent byte-compiler warning
---
ws-butler.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/ws-butler.el b/ws-butler.el
index c2b0991c1f..885846ebd4 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -289,12 +289,14 @@ only for lines modified by you."
(remove-hook 'after-revert-hook #'ws-butler-after-save t)
(remove-hook 'edit-server-done-hook #'ws-butler-before-save t)))
+(defun ws-butler--global-mode-turn-on ()
+ "Enable `ws-butler-mode' unless current major mode is exempt."
+ (unless (apply #'derived-mode-p ws-butler-global-exempt-modes)
+ (ws-butler-mode 1)))
+
;;;###autoload
-(define-globalized-minor-mode ws-butler-global-mode ws-butler-mode
- (lambda ()
- "Enable `ws-butler-mode' unless current major mode is exempt."
- (unless (apply #'derived-mode-p ws-butler-global-exempt-modes)
- (ws-butler-mode 1))))
+(define-globalized-minor-mode ws-butler-global-mode
+ ws-butler-mode ws-butler--global-mode-turn-on)
(provide 'ws-butler)
