Disable auto-maximize emacs at startup.

This commit is contained in:
KJ 2023-09-30 17:49:28 -04:00
parent 9399a3e372
commit 1ad7877974

View File

@ -24,6 +24,7 @@
(put 'gc-cons-percentage 'original-value-before-init gc-cons-percentage) (put 'gc-cons-percentage 'original-value-before-init gc-cons-percentage)
(put 'gc-cons-percentage 'value-during-init 0.6) (put 'gc-cons-percentage 'value-during-init 0.6)
(defun restore-gc-cons-percentage-after-init () (defun restore-gc-cons-percentage-after-init ()
"Restaura el garbaje collection luego de iniciar."
(let ((expected-value (get 'gc-cons-percentage 'value-during-init)) (let ((expected-value (get 'gc-cons-percentage 'value-during-init))
(value-to-restore (get 'gc-cons-percentage 'original-value-before-init))) (value-to-restore (get 'gc-cons-percentage 'original-value-before-init)))
(when (and value-to-restore (equal gc-cons-percentage expected-value)) (when (and value-to-restore (equal gc-cons-percentage expected-value))
@ -43,10 +44,8 @@
(push '(tool-bar-lines . 0) default-frame-alist) ; Quitar toolbar. (push '(tool-bar-lines . 0) default-frame-alist) ; Quitar toolbar.
;; Iniciar emacs maximizado ;; Iniciar emacs maximizado
;; (add-to-list 'initial-frame-alist '(fullscreen . maximized)) ; frame inicial ;; (add-hook 'window-setup-hook 'toggle-frame-maximized t) ; Hacerlo mediante window-setup-hook (se maximiza al terminar de cargar la ventana)
;; (add-to-list 'default-frame-alist '(fullscreen . maximized)) ; Cada frame ;; (push '(ns-transparent-titlebar . t) default-frame-alist)
(add-hook 'window-setup-hook 'toggle-frame-maximized t) ; Hacerlo mediante window-setup-hook (se maximiza al terminar de cargar la ventana)
(push '(ns-transparent-titlebar . t) default-frame-alist)
;; Resizing the Emacs frame can be a terribly expensive part of changing the ;; Resizing the Emacs frame can be a terribly expensive part of changing the
;; font. By inhibiting this, we easily halve startup times with fonts that are ;; font. By inhibiting this, we easily halve startup times with fonts that are