TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: avoid unecessary output in message buffer at startup 

Unless in debug mode.
This commit is contained in:
syl20bnr 2018-06-10 02:49:51 -04:00
parent c2211b32e3
commit ac247396f3
4 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/core-configuration-layer.el
View File

@ -448,7 +448,7 @@ cache folder.")
(package-initialize 'noactivate)
;; hack to be sure to enable insalled org from Org ELPA repository
(when (package-installed-p 'org-plus-contrib)
(configuration-layer/message "Initializing Org early...")
(spacemacs-buffer/message "Initializing Org early...")
(configuration-layer//activate-package 'org-plus-contrib))))
(defun configuration-layer//configure-quelpa ()

2
core/core-spacemacs-buffer.el
View File

@ -133,7 +133,7 @@ Cate special text banner can de reachable via `998', `cat' or `random*'.
(defun spacemacs-buffer/display-startup-note ()
"Decide of the startup note and display it if relevant."
(when (file-exists-p spacemacs-buffer--cache-file)
(load spacemacs-buffer--cache-file))
(load spacemacs-buffer--cache-file nil (not init-file-debug)))
(cond
(spacemacs-buffer--fresh-install
;; we assume the user is new to spacemacs and open the quickhelp

2
core/core-spacemacs.el
View File

@ -114,7 +114,7 @@ the final step of executing code in `emacs-startup-hook'.")
;; believe me? Go ahead, try it. After you'll have notice that this was true,
;; increase the counter bellow so next people will give it more confidence.
;; Counter = 1
(message "Setting the font...")
(spacemacs-buffer/message "Setting the font...")
(unless (spacemacs/set-default-font dotspacemacs-default-font)
(spacemacs-buffer/warning
"Cannot find any of the specified fonts (%s)! Font settings may not be correct."

13
init.el
View File

@ -16,11 +16,14 @@
;; see `SPC h . dotspacemacs-gc-cons' for more info
(defconst emacs-start-time (current-time))
(setq gc-cons-threshold 402653184 gc-cons-percentage 0.6)
(load-file (concat (file-name-directory load-file-name)
"core/core-versions.el"))
(load-file (concat (file-name-directory load-file-name)
"core/core-load-paths.el"))
(load-file (concat spacemacs-core-directory "core-dumper.el"))
(load (concat (file-name-directory load-file-name)
"core/core-versions.el")
nil (not init-file-debug))
(load (concat (file-name-directory load-file-name)
"core/core-load-paths.el")
nil (not init-file-debug))
(load (concat spacemacs-core-directory "core-dumper.el")
nil (not init-file-debug))
(if (not (version<= spacemacs-emacs-min-version emacs-version))
(error (concat "Your version of Emacs (%s) is too old. "