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

Include narrowing indication in describe-mode

Browse source 
* lisp/help.el (describe-mode): Include "Narrow", if narrowing is
active.  (Bug#31139)

Copyright-paperwork-exempt: yes
This commit is contained in:
Michael Hendricks 2018-05-05 12:41:43 +03:00 • committed by Eli Zaretskii
parent 2d0eff42b8
commit 8f2a815105
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/help.el
View file

@ -908,6 +908,10 @@ documentation for the major and minor modes of that buffer."
(push (list fmode pretty-minor-mode (push (list fmode pretty-minor-mode
(format-mode-line (assq mode minor-mode-alist))) (format-mode-line (assq mode minor-mode-alist)))
minor-modes))))) minor-modes)))))
;; Narrowing is not a minor mode, but its indicator is part of
;; mode-line-modes.
(when (buffer-narrowed-p)
(push '(narrow-to-region "Narrow" " Narrow") minor-modes))
(setq minor-modes (setq minor-modes
(sort minor-modes (sort minor-modes
(lambda (a b) (string-lessp (cadr a) (cadr b))))) (lambda (a b) (string-lessp (cadr a) (cadr b)))))