Fix possible compiler warning when excluding modes

This commit is contained in:
Tom Willemse 2016-06-10 14:46:24 +02:00
parent cb337a15d1
commit 390d8b2cc8

View file

@ -122,7 +122,8 @@ MODE1 is enabled and vice-versa."
(defun ,function-name ()
,(concat "Toggle `" mode2-name
"' according to the inverse of `" mode1-name "'.")
(,mode2 (or (not ,mode1) -1)))
(let ((mode ',mode2))
(funcall mode (or (not ,mode1) -1))))
(add-hook ',(intern (concat mode1-name "-hook"))
#',function-name))))