Fix unintern calls (missing second argument)

This commit is contained in:
Henrik Lissner 2018-06-22 01:10:08 +02:00
parent 0d19b9e61c
commit 8c5deef5fc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 4 additions and 4 deletions

View file

@ -22,7 +22,7 @@ Examples:
(fn (intern (format "+company|init-%s" mode))))
(cond ((null (car-safe backends))
(remove-hook hook fn)
(unintern fn))
(unintern fn nil))
((fset fn
(lambda ()
(when (or (eq major-mode mode)

View file

@ -18,7 +18,7 @@ Used by `+lookup/in-docsets' and `+lookup/documentation'."
(hook (intern (format "%s-hook" mode))))
(cond ((null (car-safe docsets))
(remove-hook hook fn)
(unintern fn))
(unintern fn nil))
((fset fn
(lambda ()
(let ((var-sym (if (featurep! :completion ivy)

View file

@ -34,7 +34,7 @@ properties:
(fn (intern (format "+lookup|init-%s" mode))))
(cond ((null (car plist))
(remove-hook hook fn)
(unintern fn))
(unintern fn nil))
((fset fn
(lambda ()
(when (or (eq major-mode mode)

View file

@ -325,7 +325,7 @@ Pretty symbols can be unset for emacs-lisp-mode with:
(fn (intern (format "+pretty-code|init-%s" mode))))
(cond ((null (car-safe plist))
(remove-hook hook fn)
(unintern fn))
(unintern fn nil))
((or (eq +pretty-code-enabled-modes 't)
(if (eq (car +pretty-code-enabled-modes) 'not)
(not (memq mode (cdr +pretty-code-enabled-modes)))