changeset 1319 | d893dc8fe820 |
parent 1318 | a37d43074061 |
child 1524 | 6d4fee1f7cb0 |
--- a/autobm.el Sat Dec 12 00:45:05 2015 +0200 +++ b/autobm.el Sat Dec 12 01:06:07 2015 +0200 @@ -21,11 +21,11 @@ (cl-some #'thing-at-point autobm-try-thingatpt-things)) (defun autobm-get-active-handlers () - (let ( h handlers (modes (list t)) ) + (let ( h handlers (modes (list major-mode)) ) (dolist (m minor-mode-list) (when (and (boundp m) (symbol-value m)) (push m modes))) - (push major-mode modes) + (push t modes) (dolist (m modes) (setq h (assoc m autobm-mode-handlers)) (when h