Re: Next release

[David Reitter]

On 8 May 2008, at 09:32, David Kastrup wrote:
> It would be worthwhile to start mapping Emacs usually only  
> after .emacs
> has been processed and/or the command line processed.  That way you  
> can
> select fonts, geometry, toolbar or not and so on in .emacs and have
> emacs start right away without resizing or flicker.

Indeed. The way we got around this in Aquamacs was to create the frame  
with (visibility . nil), process .emacs (etc.) and only make it  
visible after frame-notice-user-settings, as in the patch below.  That  
way, the frame is already be present and may be manipulated directly  
in .emacs, without any annoying visual effects.




Index: lisp/startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.436.2.16
diff -c -r1.436.2.16 startup.el
*** lisp/startup.el     6 Mar 2008 00:08:01 -0000       1.436.2.16
--- lisp/startup.el     30 Apr 2008 16:33:28 -0000
***************
*** 473,479 ****
                  (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)
--- 473,482 ----
                  (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)
***************
*** 756,764 ****

    (run-hooks 'before-init-hook)

!   ;; Under X Window, this creates the X frame and deletes the  
terminal frame.
!   (when (fboundp 'frame-initialize)
!     (frame-initialize))

    ;; Turn off blinking cursor if so specified in X resources.  This  
is here
    ;; only because all other settings of no-blinking-cursor are here.
--- 759,774 ----

    (run-hooks 'before-init-hook)

!   ;; the initial frame is hidden in Aquamacs
!   (let ((initial-frame-alist (append '((visibility . nil)
!                                      (left . 99)) ;; bug #166 workaround
!                                      initial-frame-alist)))
!     ;; Under X Window, this creates the X frame and deletes the  
terminal frame.
!     (when (fboundp 'frame-initialize)
!       (frame-initialize)
!       ;; allow frame-notice-user-settings to override
!       (setq frame-initial-geometry-arguments
! 	    (delete '(visibility . nil) (delete '(left . 99) frame-initial- 
geometry-arguments)))))

    ;; Turn off blinking cursor if so specified in X resources.  This  
is here
    ;; only because all other settings of no-blinking-cursor are here.
***************
*** 2153,2158 ****
--- 2128,2136 ----
        (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
        ;; before doing any output.