Re: slow make-frame + face initialization / importing x resources

[David Reitter]

On 15 Jul 2007, at 21:10, chad brown wrote:

> I believe that the Mac carbon port, at least, reads (pseudo) X  
> resources to deal with customization before .emacs; specifically,  
> so that windows can be graphically configured before mapped (which  
> can result in ugly/annoying flashing, for example).

For what it's worth, here's a patch from Aquamacs which avoids  
flashing/resizing. The initial frame is invisible, and only after the  
site- and user-specific settings are loaded, this frame is made  
visible. (In case of errors, the frame is made visible, too, of course.)





Index: lisp/startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.368
diff -c -r1.368 startup.el
*** lisp/startup.el     15 Jul 2005 14:47:06 -0000      1.368
--- lisp/startup.el     17 Jul 2005 22:07:56 -0000
***************
*** 463,469 ****
                  (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
                                    term)
                      (setq default-frame-background-mode 'light)))
!               (frame-set-background-mode (selected-frame)))))

        ;; Now we know the user's default font, so add it to the menu.
        (if (fboundp 'font-menu-add-default)
--- 463,472 ----
                  (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
                                    term)
                      (setq default-frame-background-mode 'light)))
!               (frame-set-background-mode (selected-frame))))
!
!         ;; time to make the frame visible (Aquamacs)
!         (make-frame-visible))

        ;; Now we know the user's default font, so add it to the menu.
        (if (fboundp 'font-menu-add-default)
***************
*** 721,726 ****
--- 724,732 ----
      (and command-line-args
           (setcdr command-line-args args)))

+   ;; the initial frame is hidden in Aquamacs
+   (setq initial-frame-alist (cons '(visibility . nil) initial-frame- 
alist))
+
    ;; Under X Window, this creates the X frame and deletes the  
terminal frame.
    (when (fboundp 'frame-initialize)
      (frame-initialize))
***************
*** 1730,1735 ****
--- 1736,1744 ----
      ;; keystroke, and that's distracting.
      (when (fboundp 'frame-notice-user-settings)
        (frame-notice-user-settings))
+
+     ;; time to make the frame visible (Aquamacs)
+     (make-frame-visible)

      ;; If there are no switches to process, we might as well
      ;; run this hook now, and there may be some need to do it