diff --git a/modules/home/users/msyds/emacs/lisp/syd/handle.el b/modules/home/users/msyds/emacs/lisp/syd/handle.el index 2ba5ddb..efeaae2 100755 --- a/modules/home/users/msyds/emacs/lisp/syd/handle.el +++ b/modules/home/users/msyds/emacs/lisp/syd/handle.el @@ -43,9 +43,10 @@ ;; TODO: Use `syd-parent-mode-list' to support hierarchies of modes. when (or (eq mode major-mode) (and (boundp mode) - (symbol-value mode)) - (memq mode minor-mode-list)) - do (setq r (apply handle args)) + (symbol-value mode))) + do (setq r (if (commandp handle) + (call-interactively handle) + (apply handle args))) when r return r)))))) (defun syd-handle (modes &rest args)