Move server/startup-message/auto-kill-processes init to core.el
This commit is contained in:
parent
23cd511645
commit
929a34944a
1 changed files with 14 additions and 0 deletions
14
core/core.el
14
core/core.el
|
@ -142,5 +142,19 @@
|
||||||
(IS-LINUX 'core-os-linux)
|
(IS-LINUX 'core-os-linux)
|
||||||
(IS-WINDOWS 'core-os-win32)))
|
(IS-WINDOWS 'core-os-win32)))
|
||||||
|
|
||||||
|
;; Set this up at the end to allow errors to prevent it.
|
||||||
|
(add-hook! after-init
|
||||||
|
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
|
||||||
|
"Prevent annoying \"Active processes exist\" query when you quit Emacs."
|
||||||
|
(cl-flet ((process-list ())) ad-do-it)))
|
||||||
|
|
||||||
|
(defun display-startup-echo-area-message ()
|
||||||
|
(after! workgroups2
|
||||||
|
(message "%sLoaded in %s" (narf/tab-display t t) (emacs-init-time))))
|
||||||
|
|
||||||
|
(require 'server)
|
||||||
|
(unless (server-running-p)
|
||||||
|
(server-start))
|
||||||
|
|
||||||
(provide 'core)
|
(provide 'core)
|
||||||
;;; core.el ends here
|
;;; core.el ends here
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue