forked from pool/gettext-runtime
11 lines
569 B
Diff
11 lines
569 B
Diff
--- gettext-tools/misc/po-mode.el
|
|
+++ gettext-tools/misc/po-mode.el
|
|
@@ -1110,6 +1110,7 @@
|
|
;; 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 'mode-line-position mode-line-format)
|
|
(member " " mode-line-format)
|
|
(last mode-line-format))))
|
|
(setcdr prev-entry (cons po-mode-line-entry (cdr prev-entry)))))
|