[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Next release
From: |
David Reitter |
Subject: |
Re: Next release |
Date: |
Thu, 8 May 2008 10:04:45 +0100 |
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.
- Re: Next release, (continued)
- Re: Next release, Stefan Monnier, 2008/05/05
- Re: Next release, Chong Yidong, 2008/05/04
- Re: Next release, YAMAMOTO Mitsuharu, 2008/05/04
- Re: Next release, Stefan Monnier, 2008/05/04
- Re: Next release, Juanma Barranquero, 2008/05/05
- Re: Next release, Stefan Monnier, 2008/05/07
- Re: Next release, Eli Zaretskii, 2008/05/07
- Re: Next release, Stefan Monnier, 2008/05/07
- Re: Next release, Jason Rumney, 2008/05/08
- Re: Next release, David Kastrup, 2008/05/08
- Re: Next release,
David Reitter <=
- Re: Next release, Jan Djärv, 2008/05/08
- Re: Next release, Miles Bader, 2008/05/08
- Re: Next release, Richard M Stallman, 2008/05/10
- Re: Next release, David Kastrup, 2008/05/10
- Re: Next release, David Reitter, 2008/05/10
- Re: Next release, Miles Bader, 2008/05/08
- Re: Next release, Jason Rumney, 2008/05/08
- Re: Next release, Miles Bader, 2008/05/08
- Re: Next release, David Kastrup, 2008/05/08
- Re: Next release, Stephen J. Turnbull, 2008/05/08