mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Revert "New command 'mode-line-invisible-mode'"

Browse source 
This reverts commit 7e56ffd51b.
It caused failure to bootstrap.  (Bug#78881)
This commit is contained in:
Eli Zaretskii 2025-07-05 13:29:46 +03:00
parent 4d14891850
commit a4712609b7
3 changed files with 0 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

8
doc/emacs/display.texi
View file

@ -1826,14 +1826,6 @@ further ``compress'' the mode line, you may customize the
and Emacs will hide some minor mode indicators on the mode line by and Emacs will hide some minor mode indicators on the mode line by
collapsing them into a single clickable button. collapsing them into a single clickable button.
@findex mode-line-invisible-mode
By default, most buffers display a mode line, but if the mode line is
not useful in a buffer, you can use the command @w{@kbd{M-x
mode-line-invisible-mode}} to hide the mode line in the current buffer,
the mode line remains hidden until this command is called again. To
always hide the mode line when entering to a major mode, add
@code{mode-line-invisible-mode} to a hook @pxref{Hooks}.
@node Text Display @node Text Display
@section How Text Is Displayed @section How Text Is Displayed
@cindex characters (in text) @cindex characters (in text)

7
etc/NEWS
View file

@ -353,13 +353,6 @@ This option allows changing or removing the delimiters shown around
the major mode and list of minor modes in the mode line. The default the major mode and list of minor modes in the mode line. The default
retains the existing behavior of inserting parentheses. retains the existing behavior of inserting parentheses.
+++
*** New minor mode 'mode-line-invisible-mode'.
This minor mode makes the mode-line of the current buffer invisible.
The command 'mode-line-invisible-mode' toggles the visibility of the
current-buffer's mode-line. The default is to show the mode line of
every buffer.
** Tab Bars and Tab Lines ** Tab Bars and Tab Lines
--- ---

31
lisp/bindings.el
View file

@ -56,37 +56,6 @@ corresponding to the mode line clicked."
(widen) (widen)
(force-mode-line-update))) (force-mode-line-update)))
;; Variable used by `mode-line-invisible-mode' for
;; store mode-line value in current buffer.
(defvar-local mode-line-invisible--buf-state)
(define-minor-mode mode-line-invisible-mode
"Toggle the mode-line visibility of the current buffer.
Hide the mode line if it is shown, and show it if it's hidden."
:global nil
(if mode-line-invisible-mode
(progn
(add-hook 'after-change-major-mode-hook #'mode-line-invisible-mode nil t)
(setq mode-line-invisible--buf-state
(buffer-local-set-state mode-line-format nil)))
(remove-hook 'after-change-major-mode-hook #'mode-line-invisible-mode t)
(when mode-line-invisible--buf-state
(setq mode-line-invisible--buf-state
(buffer-local-restore-state mode-line-invisible--buf-state)))
;; Display a mode line if buffer does not have one by default
(unless mode-line-format
(setq-local mode-line-format (default-value 'mode-line-format)))
;; Update mode line
(when (called-interactively-p 'any)
(force-mode-line-update))))
(put 'mode-line-invisible--buf-state 'permanent-local t)
(put 'mode-line-invisible-mode 'permanent-local-hook t)
(defvar mode-line-input-method-map (defvar mode-line-input-method-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-2] (define-key map [mode-line mouse-2]