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."
+  "Return non-nil if temporary file or a straight package."
-  (and (not (file-remote-p project-root))
+  (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
+;; REVIEW Remove after a month
-(if (boundp 'comp-deferred-compilation)
+(setq comp-deferred-compilation nil
-    (setq comp-deferred-compilation nil)
+      native-comp-deferred-compilation nil)
-  (setq 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
+#+DATE:    February 20, 2017
-#+SINCE:   v3.0.0
+#+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,11 +29,11 @@ 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
+          (fset
-                (lambda ()
+           fn (lambda ()
                 (make-local-variable 'dash-docs-docsets)
                 (unless (memq action '(:add :remove))
                   (setq dash-docs-docset nil))