diff --git a/core/autoload/projects.el b/core/autoload/projects.el index ffe395688..0af779171 100644 --- a/core/autoload/projects.el +++ b/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)))) diff --git a/core/core-cli.el b/core/core-cli.el index 89de27c70..5e7a26efb 100644 --- a/core/core-cli.el +++ b/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)) diff --git a/core/core.el b/core/core.el index 769becc8c..c0f05fecc 100644 --- a/core/core.el +++ b/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 diff --git a/early-init.el b/early-init.el index 2e5daf62d..c6825f509 100644 --- a/early-init.el +++ b/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 diff --git a/modules/checkers/spell/README.org b/modules/checkers/spell/README.org index 408570acf..5312c8d59 100644 --- a/modules/checkers/spell/README.org +++ b/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: diff --git a/modules/completion/company/config.el b/modules/completion/company/config.el index 4ebc6e4ff..97b0677fb 100644 --- a/modules/completion/company/config.el +++ b/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 diff --git a/modules/tools/lookup/autoload/docsets.el b/modules/tools/lookup/autoload/docsets.el index fffbe58a5..0e76381bc 100644 --- a/modules/tools/lookup/autoload/docsets.el +++ b/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