From: Amin Bandali <bandali@gnu.org>
Date: Sun, 26 Apr 2020 20:39:03 +0000 (-0400)
Subject: Work around incompatibility between orgalist and yasnippet
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/ff9cc25d59e324575e47e88bcccb3d4f291ff616?hp=076e900995d9d71d54e3788691cd0958f38c6dfc

Work around incompatibility between orgalist and yasnippet

* lisp/bandali-message.el: Disable yasnippet and enabled it after
enabling orgalist, to avoid the following infinite recursion error in
message-mode when auto-fill is triggered:

Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
  current-fill-column()
  orgalist--auto-fill(yas--auto-fill)
  apply(orgalist--auto-fill yas--auto-fill nil)
  #f(advice-wrapper :around yas--auto-fill orgalist--auto-fill)()
  yas--auto-fill()
  orgalist--auto-fill(yas--auto-fill)
  apply(orgalist--auto-fill yas--auto-fill nil)
  #f(advice-wrapper :around yas--auto-fill orgalist--auto-fill)()
  yas--auto-fill()
  ...
  orgalist--auto-fill(yas--auto-fill)
  apply(orgalist--auto-fill yas--auto-fill nil)
  #f(advice-wrapper :around yas--auto-fill orgalist--auto-fill)()
  yas--auto-fill()
  internal-auto-fill()
  self-insert-command(1 32)
  funcall-interactively(self-insert-command 1 32)
  call-interactively(self-insert-command nil nil)
  command-execute(self-insert-command)
---

diff --git a/lisp/bandali-message.el b/lisp/bandali-message.el
index 750188c..4f3d551 100644
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -118,7 +118,12 @@
 
 (use-package orgalist
   :after message
-  :hook (message-mode . orgalist-mode))
+  :hook (message-mode . (lambda ()
+                          ;; work around incompatibility between
+                          ;; orgalist and yasnippet
+                          (yas-minor-mode -1)
+                          (orgalist-mode 1)
+                          (yas-minor-mode 1))))
 
 (provide 'bandali-message)
 ;;; bandali-message.el ends here