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

[Bauke Jan Douma]

Hi,

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.
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 ()



Bauke Jan Douma