Minor refactors, reformatting, & comment revision

core/autoload/projects.el

@@ -149,7 +149,7 @@ If DIR is not a project, it will be indexed (but not cached)."
 
 ;;;###autoload
 (defun doom-project-ignored-p (project-root)
-  "Return non-nil if remote or temporary file, or a straight package."
-  (and (not (file-remote-p project-root))
-       (or (file-in-directory-p project-root temporary-file-directory)
-           (file-in-directory-p project-root doom-local-dir))))
+  "Return non-nil if temporary file or a straight package."
+  (unless (file-remote-p project-root)
+    (or (file-in-directory-p project-root temporary-file-directory)
+        (file-in-directory-p project-root doom-local-dir))))

core/core-cli.el

@@ -109,7 +109,7 @@ Environment variables:
                          auto-accept-p))
             (when doomdir
               (setenv "DOOMDIR" (file-name-as-directory doomdir))
-              (print! (info "DOOMDIR=%s") localdir))
+              (print! (info "DOOMDIR=%s") doomdir))
             (when localdir
               (setenv "DOOMLOCALDIR" (file-name-as-directory localdir))
               (print! (info "DOOMLOCALDIR=%s") localdir))

core/core.el

@@ -266,7 +266,7 @@ config.el instead."
 ;; indicates misconfiguration (don't rely on case insensitivity for file names).
 (setq auto-mode-case-fold nil)
 
-;; Disable bidirectional text rendering for a modest performance boost. I've set
+;; Disable bidirectional text scanning for a modest performance boost. I've set
 ;; this to `nil' in the past, but the `bidi-display-reordering's docs say that
 ;; is an undefined state and suggest this to be just as good:
 (setq-default bidi-display-reordering 'left-to-right

early-init.el

@@ -11,10 +11,9 @@
 ;; Prevent unwanted runtime compilation for gccemacs (native-comp) users;
 ;; packages are compiled ahead-of-time when they are installed and site files
 ;; are compiled when gccemacs is installed.
-;; REVIEW Remove after a couple months
-(if (boundp 'comp-deferred-compilation)
-    (setq comp-deferred-compilation nil)
-  (setq native-comp-deferred-compilation nil))
+;; REVIEW Remove after a month
+(setq comp-deferred-compilation nil
+      native-comp-deferred-compilation nil)
 
 ;; In noninteractive sessions, prioritize non-byte-compiled source files to
 ;; prevent the use of stale byte-code. Otherwise, it saves us a little IO time

modules/checkers/spell/README.org

@@ -1,6 +1,6 @@
 #+TITLE:   checkers/spell
-#+DATE:    January 9, 2020
-#+SINCE:   v3.0.0
+#+DATE:    February 20, 2017
+#+SINCE:   v2.0
 #+STARTUP: inlineimages nofold
 
 * Table of Contents :TOC_3:noexport:

modules/completion/company/config.el

@@ -89,6 +89,7 @@
 ;;; Packages
 
 (after! company-files
+  ;; Fix `company-files' completion for org file:* links
   (add-to-list 'company-files--regexps "file:\\(\\(?:\\.\\{1,2\\}/\\|~/\\|/\\)[^\]\n]*\\)"))
 
 
@@ -100,6 +101,8 @@
         company-box-backends-colors nil
         company-box-max-candidates 50
         company-box-icons-alist 'company-box-icons-all-the-icons
+        ;; Move company-box-icons--elisp to the end, because it has a catch-all
+        ;; clause that ruins icons from other backends in elisp buffers.
         company-box-icons-functions
         (cons #'+company-box-icons--elisp-fn
               (delq 'company-box-icons--elisp

modules/tools/lookup/autoload/docsets.el

@@ -29,25 +29,25 @@ Used by `+lookup/in-docsets' and `+lookup/documentation'."
   (let ((action (if (keywordp (car docsets)) (pop docsets))))
     (dolist (mode (doom-enlist modes))
       (let ((hook (intern (format "%s-hook" mode)))
-            (fn (intern (format "+lookup|init--%s-%s" (or action "set") mode))))
+            (fn (intern (format "+lookup-init--%s-%s" (or action "set") mode))))
         (if (null docsets)
             (remove-hook hook fn)
-          (fset fn
-                (lambda ()
-                  (make-local-variable 'dash-docs-docsets)
-                  (unless (memq action '(:add :remove))
-                    (setq dash-docs-docset nil))
-                  (dolist (spec docsets)
-                    (cl-destructuring-bind (docset . pred)
-                        (cl-typecase spec
-                          (string (cons spec nil))
-                          (vector (cons (aref spec 0) (aref spec 1)))
-                          (otherwise (signal 'wrong-type-arguments (list spec '(vector string)))))
-                      (when (or (null pred)
-                                (eval pred t))
-                        (if (eq action :remove)
-                            (setq dash-docs-docsets (delete docset dash-docs-docsets))
-                          (cl-pushnew docset dash-docs-docsets)))))))
+          (fset
+           fn (lambda ()
+                (make-local-variable 'dash-docs-docsets)
+                (unless (memq action '(:add :remove))
+                  (setq dash-docs-docset nil))
+                (dolist (spec docsets)
+                  (cl-destructuring-bind (docset . pred)
+                      (cl-typecase spec
+                        (string (cons spec nil))
+                        (vector (cons (aref spec 0) (aref spec 1)))
+                        (otherwise (signal 'wrong-type-arguments (list spec '(vector string)))))
+                    (when (or (null pred)
+                              (eval pred t))
+                      (if (eq action :remove)
+                          (setq dash-docs-docsets (delete docset dash-docs-docsets))
+                        (cl-pushnew docset dash-docs-docsets)))))))
           (add-hook hook fn 'append))))))
 
 ;;;###autoload