From: Illia Ostapyshyn <ilya.ostapyshyn@gmail.com>
Date: Wed, 21 Jul 2021 21:53:17 +0000 (+0200)
Subject: * lisp/cus-start.el: Add mode-line-compact to Customize
X-Git-Tag: emacs-28.0.90~1761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a98bf3e7d713cb944c38ae6f784dc26d532b8e71;p=emacs.git

* 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 3c2625a8c31..50a6bd2f752 100644
--- 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)