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 (file)
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -118,7 +118,12 @@
 
 (use-package orgalist
   :after message
 
 (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
 
 (provide 'bandali-message)
 ;;; bandali-message.el ends here