awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix unintern calls (missing second argument)

Browse Source
This commit is contained in:
Henrik Lissner
2018-06-22 01:10:08 +02:00
parent 0d19b9e61c
commit 8c5deef5fc
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/completion/company/autoload.el
View File

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

2
modules/feature/lookup/autoload/docsets.el
View File

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

2
modules/feature/lookup/autoload/lookup.el
View File

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

2
modules/ui/pretty-code/autoload.el
View File

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