On daemon mode, kill all buffer except dashboard on close frame.
This commit is contained in:
parent
290243835f
commit
52a7058da6
@ -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,11 +116,9 @@
|
|||||||
;; 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)
|
||||||
(add-hook 'after-make-frame-functions
|
(add-hook 'after-make-frame-functions
|
||||||
|
Loading…
Reference in New Issue
Block a user