early-init.el (1380B)
1 ;; -*- lexical-binding: t; -*- 2 3 ;; make garbage collector less invasive 4 (setq gc-cons-threshold most-positive-fixnum 5 gc-cons-percentage 0.6) 6 7 (setq package-enable-at-startup nil) 8 9 (defvar default-gc-cons-threshold 16777216 ; 16mb 10 "Default GC cons threshold to use.") 11 12 (push '(menu-bar-lines . 0) default-frame-alist) 13 (push '(tool-bar-lines . 0) default-frame-alist) 14 (push '(left-fringe . 0) default-frame-alist) 15 (push '(right-fringe . 0) default-frame-alist) 16 (push '(vertical-scroll-bars) default-frame-alist) 17 ;(push '(font . "UW Ttyp0-10") default-frame-alist) 18 (push '(mouse-color . "#f6e5db") default-frame-alist) 19 (push '(bottom-divider-width . 20) default-frame-alist) 20 (push '(right-divider-width . 20) default-frame-alist) 21 22 (setq frame-inhibit-implied-resize t) 23 24 (setq warning-minimum-level :error) 25 26 (setq default-file-name-handler-alist file-name-handler-alist 27 file-name-handler-alist nil) 28 29 (setq initial-scratch-message nil) 30 (setq inhibit-startup-screen t) 31 (defun display-startup-echo-area-message ()) 32 33 (add-hook 'emacs-startup-hook 34 (lambda (&rest _) 35 (setq gc-cons-threshold default-gc-cons-threshold 36 gc-cons-percentage 0.1 37 file-name-handler-alist default-file-name-handler-alist) 38 39 ;; delete no longer necessary startup variable 40 (makunbound 'default-file-name-handler-alist)))