mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-05 22:20:24 -08:00
Revert "New command 'mode-line-invisible-mode'"
This reverts commit 7e56ffd51b.
It caused failure to bootstrap. (Bug#78881)
This commit is contained in:
parent
4d14891850
commit
a4712609b7
3 changed files with 0 additions and 46 deletions
|
|
@ -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
|
||||
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
|
||||
@section How Text Is Displayed
|
||||
@cindex characters (in text)
|
||||
|
|
|
|||
7
etc/NEWS
7
etc/NEWS
|
|
@ -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
|
||||
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
|
||||
|
||||
---
|
||||
|
|
|
|||
|
|
@ -56,37 +56,6 @@ corresponding to the mode line clicked."
|
|||
(widen)
|
||||
(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
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map [mode-line mouse-2]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue