Re: po-mode dysfunctional when mode-line-format is nil

[Bruno Haible]

Bauke Jan Douma wrote:
> 
> I find that po-mode.el is completely dysfunctional when mode-line-format
> is nil.
> I always have mode-line-format nil, but do have header-line-format.

Thanks for the report.

> This quick diff works for me.
> 
> --- .po-mode.el       2004-01-17 12:52:08.000000000 +0100
> +++ po-mode.el        2005-03-28 22:00:49.000000000 +0200
> @@ -1094,11 +1094,15 @@
>  
>  ;; Insert MODE-LINE-ENTRY in mode line, but on first load only.
>  (or (member po-mode-line-entry mode-line-format)
> +    (member po-mode-line-entry header-line-format)
>      ;; mode-line-format usually contains global-mode-string, but some
>      ;; people customize this variable. As a last resort, append at the end.
>      (let ((prev-entry (or (member 'global-mode-string mode-line-format)
> +                       (member 'global-mode-string header-line-format)
>                            (member "   " mode-line-format)
> -                          (last mode-line-format))))
> +                          (member "   " header-line-format)
> +                          (last mode-line-format)
> +                          (last header-line-format))))
>        (setcdr prev-entry (cons po-mode-line-entry (cdr prev-entry)))))
>  
>  (defun po-update-mode-line-string ()

This patch does not take into account the function po-update-mode-line-string.
Currently it updates the po-mode-line-string and then calls
force-mode-line-update. What is the corresponding function for redrawing
the header line? There is no 'force-header-line-update' function.

Also, XEmacs doesn't have a header-line-format variable. What do you
suggest to do when an XEmacs user sets mode-line-format to nil?

Bruno