* lisp/cus-start.el: Add mode-line-compact to Customize

* lisp/cus-start.el (standard): Make `mode-line-compact' into a
user option (bug#49687).

Copyright-paperwork-exempt: yes

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 3c2625a8c31cd32c3097461160ab773e60473eb6..50a6bd2f7529f1eb30aa728ee8ddbc2eee649a90 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -631,6 +631,12 @@ since it could result in memory overflow and make Emacs crash."
             ;; The whitespace group is for whitespace.el.
             (show-trailing-whitespace editing-basics boolean nil
                                       :safe booleanp)
+             (mode-line-compact
+              mode-line
+              (choice (const :tag "Never (nil)" :value nil)
+                      (const :tag "Only if wider than window (long)" :value long)
+                      (const :tag "Always (t)" :value t))
+              "28.1")
             (scroll-step windows integer)
             (scroll-conservatively windows integer)
             (scroll-margin windows integer)