fix(emacs): call handler interactively if possible
This commit is contained in:
@@ -43,9 +43,10 @@
|
|||||||
;; TODO: Use `syd-parent-mode-list' to support hierarchies of modes.
|
;; TODO: Use `syd-parent-mode-list' to support hierarchies of modes.
|
||||||
when (or (eq mode major-mode)
|
when (or (eq mode major-mode)
|
||||||
(and (boundp mode)
|
(and (boundp mode)
|
||||||
(symbol-value mode))
|
(symbol-value mode)))
|
||||||
(memq mode minor-mode-list))
|
do (setq r (if (commandp handle)
|
||||||
do (setq r (apply handle args))
|
(call-interactively handle)
|
||||||
|
(apply handle args)))
|
||||||
when r return r))))))
|
when r return r))))))
|
||||||
|
|
||||||
(defun syd-handle (modes &rest args)
|
(defun syd-handle (modes &rest args)
|
||||||
|
|||||||
Reference in New Issue
Block a user