On daemon mode, kill all buffer except dashboard on close frame.

This commit is contained in:
kj 2022-05-18 03:31:22 -04:00
parent 290243835f
commit 52a7058da6

View File

@ -11,7 +11,8 @@
;;; Code:
;; The default is 800 kilobytes. Measured in bytes.
(setq gc-cons-threshold (* 50 1000 1000))
(setq gc-cons-threshold (* 50 1024 1024))
(setq read-process-output-max (* 1024 1024))
;; Native compilation
(when (and (fboundp 'native-comp-available-p)
@ -115,11 +116,9 @@
;; Cerrar buffers al cerrar emacsclient
(add-hook 'delete-frame-functions
(lambda (frame)
(let* ((window (frame-selected-window frame))
(buffer (and window (window-buffer window))))
(when (and buffer (buffer-file-name buffer))
(kill-buffer buffer)))))
)
(mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
))
)
(if (daemonp)
(add-hook 'after-make-frame-functions