emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Revise comments in core.el

Browse source
This commit is contained in:
Henrik Lissner 2020-07-25 17:52:55 -04:00
parent b8a8ca9b06
commit e71b7fc705
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

32
core/core.el
View file

@ -160,8 +160,8 @@ users).")
(set-charset-priority 'unicode)) ; pretty (set-charset-priority 'unicode)) ; pretty
(prefer-coding-system 'utf-8) ; pretty (prefer-coding-system 'utf-8) ; pretty
(setq locale-coding-system 'utf-8) ; please (setq locale-coding-system 'utf-8) ; please
;; The clipboard's on Windows could be in an encoding that's wider (or thinner) ;; The clipboard's on Windows could be in a wider (or thinner) encoding than
;; than utf-8, so let Emacs/the OS decide what encoding to use there. ;; utf-8 (likely UTF-16), so let Emacs/the OS decide what encoding to use there.
(unless IS-WINDOWS (unless IS-WINDOWS
(setq selection-coding-system 'utf-8)) ; with sugar on top (setq selection-coding-system 'utf-8)) ; with sugar on top
@ -169,7 +169,7 @@ users).")
;; we do about them, besides changing packages upstream? ;; we do about them, besides changing packages upstream?
(setq ad-redefinition-action 'accept) (setq ad-redefinition-action 'accept)
;; Make apropos omnipotent. It's more useful this way. ;; Make `apropos' et co search more extensively. They're more useful this way.
(setq apropos-do-all t) (setq apropos-do-all t)
;; A second, case-insensitive pass over `auto-mode-alist' is time wasted, and ;; A second, case-insensitive pass over `auto-mode-alist' is time wasted, and
@ -177,17 +177,19 @@ users).")
;; insensitivity). ;; insensitivity).
(setq auto-mode-case-fold nil) (setq auto-mode-case-fold nil)
;; Less noise at startup. The dashboard/empty scratch buffer is good enough. ;; Reduce *Message* noise at startup. An empty scratch buffer (or the dashboard)
;; is more than enough.
(setq inhibit-startup-message t (setq inhibit-startup-message t
inhibit-startup-echo-area-message user-login-name inhibit-startup-echo-area-message user-login-name
inhibit-default-init t inhibit-default-init t
;; Avoid pulling in many packages by starting the scratch buffer in ;; Shave seconds off startup time by starting the scratch buffer in
;; `fundamental-mode', rather than, say, `org-mode' or `text-mode'. ;; `fundamental-mode', rather than, say, `org-mode' or `text-mode', which
;; pull in a ton of packages.
initial-major-mode 'fundamental-mode initial-major-mode 'fundamental-mode
initial-scratch-message nil) initial-scratch-message nil)
;; Get rid of "For information about GNU Emacs..." message at startup, unless ;; Get rid of "For information about GNU Emacs..." message at startup, unless
;; we're in a daemon session, where it'll say "Starting Emacs daemon." instead, ;; we're in a daemon session where it'll say "Starting Emacs daemon." instead,
;; which isn't so bad. ;; which isn't so bad.
(unless (daemonp) (unless (daemonp)
(advice-add #'display-startup-echo-area-message :override #'ignore)) (advice-add #'display-startup-echo-area-message :override #'ignore))
@ -294,10 +296,10 @@ config.el instead."
;; been determined, but we inhibit it there anyway. ;; been determined, but we inhibit it there anyway.
(setq inhibit-compacting-font-caches t) (setq inhibit-compacting-font-caches t)
;; Performance on Windows is considerably worse than elsewhere, especially if ;; Performance on Windows is considerably worse than elsewhere. We'll need
;; WSL is involved. We'll need everything we can get. ;; everything we can get.
(when IS-WINDOWS (when IS-WINDOWS
(setq w32-get-true-file-attributes nil ; slightly faster IO (setq w32-get-true-file-attributes nil ; decrease file IO workload
w32-pipe-read-delay 0 ; faster ipc w32-pipe-read-delay 0 ; faster ipc
w32-pipe-buffer-size (* 64 1024))) ; read more at a time (was 4K) w32-pipe-buffer-size (* 64 1024))) ; read more at a time (was 4K)
@ -508,7 +510,7 @@ to least)."
;; Load shell environment, optionally generated from 'doom env'. No need ;; Load shell environment, optionally generated from 'doom env'. No need
;; to do so if we're in terminal Emacs, where Emacs correctly inherits ;; to do so if we're in terminal Emacs, where Emacs correctly inherits
;; your shell environment there. ;; your shell environment.
(if (or (display-graphic-p) (if (or (display-graphic-p)
(daemonp)) (daemonp))
(doom-load-envvars-file doom-env-file 'noerror)) (doom-load-envvars-file doom-env-file 'noerror))
@ -517,9 +519,9 @@ to least)."
;; to configure their packages. ;; to configure their packages.
(require 'core-modules) (require 'core-modules)
;; There's a chance the user will want to use package.el or straight later ;; There's a chance the user will later use package.el or straight in this
;; on in this interactive session. If that's the case, make sure they're ;; interactive session. If they do, make sure they're properly initialized
;; properly initialized when they do. ;; when they do.
(autoload 'doom-initialize-packages "core-packages") (autoload 'doom-initialize-packages "core-packages")
(autoload 'doom-initialize-core-packages "core-packages") (autoload 'doom-initialize-core-packages "core-packages")
(with-eval-after-load 'package (require 'core-packages)) (with-eval-after-load 'package (require 'core-packages))
@ -537,7 +539,7 @@ to least)."
(add-hook 'window-setup-hook #'doom-display-benchmark-h 'append) (add-hook 'window-setup-hook #'doom-display-benchmark-h 'append)
(if doom-debug-p (doom-debug-mode +1)) (if doom-debug-p (doom-debug-mode +1))
;; Load core/core-*.el, the user's private init.el and their config.el ;; Load core/core-*.el, the user's private init.el, then their config.el
(doom-initialize-modules force-p)) (doom-initialize-modules force-p))
doom-init-p) doom-init-p)