From 8c5deef5fc0a002d422d636dcee7e6530d58b088 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Fri, 22 Jun 2018 01:10:08 +0200
Subject: [PATCH] Fix unintern calls (missing second argument)

---
 modules/completion/company/autoload.el     | 2 +-
 modules/feature/lookup/autoload/docsets.el | 2 +-
 modules/feature/lookup/autoload/lookup.el  | 2 +-
 modules/ui/pretty-code/autoload.el         | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/modules/completion/company/autoload.el b/modules/completion/company/autoload.el
index bff051848..dfdf52b72 100644
--- a/modules/completion/company/autoload.el
+++ b/modules/completion/company/autoload.el
@@ -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)
diff --git a/modules/feature/lookup/autoload/docsets.el b/modules/feature/lookup/autoload/docsets.el
index b0e5a7a2a..9c2630494 100644
--- a/modules/feature/lookup/autoload/docsets.el
+++ b/modules/feature/lookup/autoload/docsets.el
@@ -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)
diff --git a/modules/feature/lookup/autoload/lookup.el b/modules/feature/lookup/autoload/lookup.el
index c092d8922..e0b70029a 100644
--- a/modules/feature/lookup/autoload/lookup.el
+++ b/modules/feature/lookup/autoload/lookup.el
@@ -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)
diff --git a/modules/ui/pretty-code/autoload.el b/modules/ui/pretty-code/autoload.el
index 3a81bdc52..a99278ece 100644
--- a/modules/ui/pretty-code/autoload.el
+++ b/modules/ui/pretty-code/autoload.el
@@ -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)))