procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't byte compile early-init.el

Browse source 
* test/infra/android/early-init.el (frame-initialize): Remove
redundant debugging printouts.
This commit is contained in:
Po Lu 2025-03-02 19:23:44 +08:00
parent 8e007f7990
commit c73003ade1
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/infra/android/early-init.el
View file

@ -1,4 +1,5 @@
;;; Suppress deletion of the initial frame by `frame-initialize'. -*- lexical-binding:t -*-
;;; Suppress deletion of the initial frame by `frame-initialize'.
;; $Id: early-init.el,v 1.2 2025/03/02 11:18:42 jw Exp $
;; Copyright (C) 2025 Free Software Foundation, Inc.
@ -19,15 +20,16 @@
(message "Loading early-init.el...")
(advice-add 'frame-initialize :around
(lambda (oldfun &rest args)
(let ((subr (symbol-function 'delete-frame))
(terminal-frame terminal-frame))
(unwind-protect
(progn
(message "Suppressed deletion of the initial frame.")
(fset 'delete-frame #'ignore)
(apply oldfun args))
(fset 'delete-frame subr)))))
;; Local Variables:
;; no-byte-compile: t
;; End: