Fix unintern calls (missing second argument)
This commit is contained in:
parent
0d19b9e61c
commit
8c5deef5fc
4 changed files with 4 additions and 4 deletions
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue