need force-header-line-update

[Katsumi Yamaoka]

Hi again,

I sent a message as attached below last year.  Isn't there any
plan to improve force-mode-line-update so that it may update
the header-line as well?  We are using the header-line feature
in emacs-w3m very effectively.  Here is the latest version:

http://emacs-w3m.namazu.org/emacs-w3m-1.3.85.tar.gz

Although we aren't really troubled with it because the following
``shriink-window - enlarge-window'' method is effective so far.

Best regards,

> --- Begin Message ---
>
>
>
> Subject: 
>
> need force-header-line-update
>
>
>
>
> Date: 
>
> Thu, 16 Oct 2003 20:48:48 +0900
>
>
>
>
> Hi,
>
> I am troubled with the header-line which is not redisplayed.
> Isn't there any function equivalent to force-mode-line-update
> for making the header-line get redisplayed?  I found the strange
> way shown below can be used for it:
>
>   (let ((window-min-height 1))
>     (shrink-window 1)
>     (enlarge-window 1))
>
> However, it is not always effective to all platforms.  Here is
> an example:
>
> ;;--8<--------------cut here--------------start------------>8---
> (defvar spinner-count 0)
>
> (let* ((buffer (get-buffer-create "*testing*"))
>        (parts ["-" "\\" "|" "/"])
>        (timer (run-at-time
>                0.2 0.2
>                `(lambda nil
>                   (save-excursion
>                     (set-buffer ,buffer)
>                     (let ((spinner (aref ,parts spinner-count)))
>                       (setq header-line-format spinner
>                             mode-line-buffer-identification spinner
>                             spinner-count (if (>= spinner-count 3)
>                                               0
>                                             (1+ spinner-count)))
>
> ;;                    (let ((window-min-height 1))
> ;;                      (shrink-window 1)
> ;;                      (enlarge-window 1))
>
>                       (force-mode-line-update)
>
>                       (message "%d" spinner-count))))))
>        (pop-up-windows t)
>        pop-up-frames)
>   (display-buffer buffer)
>   (unwind-protect
>       (while (read-event))
>     (discard-input)
>     (cancel-timer timer)))
> ;;--8<--------------cut here--------------end-------------->8---
>
> I have a plan to show some texts and a small animated gif images
> in the header-line. :)
>
> Thanks in advance for your help,
> -- 
> Katsumi Yamaoka <address@hidden>
>
> --- End Message ---