display-time-format not bound properly til clock changes

[Joe Corneli]

I start Emacs, look at mode line, and see this:

 12:09AM 0.61 Mail (Lisp Interaction)

I wait one minute, look again, and I see this:

 Thursday 0506-0010 (Lisp Interaction)

I'm noticing that in my .emacs, I have the following custom
settings:


 '(display-time-format "%A %m%d-%H%M")
 '(display-time-string-forms (quote ((if (and (not display-time-format) 
display-time-day-and-date) (format-time-string "%a %b %e " now) "") 
(format-time-string (or display-time-format (if display-time-24hr-format 
"%H:%M" "%-I:%M%p")) now) (if mail (concat " " (propertize 
display-time-mail-string (quote display) (\` (when (and 
display-time-use-mail-icon (display-graphic-p)) (\,@ display-time-mail-icon) 
(\,@ (if (and display-time-mail-face (memq (plist-get (cdr 
display-time-mail-icon) :type) (quote (pbm xbm)))) (let ((bg (face-attribute 
display-time-mail-face :background))) (if (stringp bg) (list :background 
bg))))))) (quote face) display-time-mail-face (quote help-echo) "You have new 
mail; mouse-2: Read mail" (quote local-map) (make-mode-line-mouse-map (quote 
mouse-2) read-mail-command))) ""))))


But I'm not at all sure where the time format that I don't like is
coming from... in particular, I don't seem to derive any change in
behavior if I change what looks to be the relevant bit of
`display-time-string-forms' to

(or display-time-format
   (if display-time-24hr-format "%A %m%d-%H%M" "%A %m%d-%H%M"))


Also note that if I `emacs-lisp-byte-compile-and-load' my .emacs,
then the time displayed in my mode line is changed to my prefered
format directly.



In GNU Emacs 21.3.50.4 (powerpc-apple-darwin7.2.0, X toolkit, Xaw3d scroll bars)
 of 2004-04-29 on hope-of-a-stone.local
configured using `configure '--with-x' '--without-carbon' 
'CFLAGS=-I/sw/include' 'CPPFLAGS=-I/sw/include' 'LDFLAGS=-L/sw/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  mouse-wheel-mode: t
  global-font-lock-mode: t
  unify-8859-on-encoding-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<M-backspace> c h a n g e SPC i n SPC b e SPC <backspace> 
h v <backspace> a v i o r SPC i f SPC I SPC M-d M-q 
M-f <backspace> <backspace> <backspace> M-e . <backspace> 
<up> M-f M-f M-f M-f e M-f M-f M-f <M-backspace> t 
o SPC b e SPC t <backspace> <backspace> M-f SPC r u 
e l <backspace> <backspace> <backspace> e l e v a n 
t M-q <down> M-> <up> C-SPC M-b M-b M-b M-w M-< <return> 
<backspace> M-x C-g M-x r e p r <backspace> o r t - 
e <tab> <return>

Recent messages:
Scanning ` *Minibuf-1*'
Scanning ` *Minibuf-0*'
Scanning ` *Echo Area 0*'
Scanning ` *Echo Area 1*'
Scanning `*Shell Command Output*'
Scanning `*scratch*'
dabbrev-expand: No further dynamic expansion for `dis' found
Mark set [2 times]
Quit
Loading emacsbug...done