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: ;;; Code:
;; The default is 800 kilobytes. Measured in bytes. ;; 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 ;; Native compilation
(when (and (fboundp 'native-comp-available-p) (when (and (fboundp 'native-comp-available-p)
@ -115,10 +116,8 @@
;; Cerrar buffers al cerrar emacsclient ;; Cerrar buffers al cerrar emacsclient
(add-hook 'delete-frame-functions (add-hook 'delete-frame-functions
(lambda (frame) (lambda (frame)
(let* ((window (frame-selected-window frame)) (mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
(buffer (and window (window-buffer window)))) ))
(when (and buffer (buffer-file-name buffer))
(kill-buffer buffer)))))
) )
(if (daemonp) (if (daemonp)