From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 1 May 2016 17:42:35 +0000 (+0200)
Subject: Add `size-indication-mode' to the menu on `mouse-1' "Top"
X-Git-Tag: emacs-26.0.90~2033
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3984fbbce9c93a118eebd73366e8338867c88e4d;p=emacs.git

Add `size-indication-mode' to the menu on `mouse-1' "Top"

* lisp/bindings.el (mode-line-column-line-number-mode-map):
Add `size-indication-mode' to the menu (bug#5727).
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index b64cd71fe24..c13f4b156a1 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -338,6 +338,10 @@ mouse-3: Toggle minor modes"
 (defvar mode-line-column-line-number-mode-map
   (let ((map (make-sparse-keymap))
 	(menu-map (make-sparse-keymap "Toggle Line and Column Number Display")))
+    (bindings--define-key menu-map [size-indication-mode]
+      '(menu-item "Display Size Indication" size-indication-mode
+		  :help "Toggle displaying a size indication in the mode-line"
+		  :button (:toggle . size-indication-mode)))
     (bindings--define-key menu-map [line-number-mode]
       '(menu-item "Display Line Numbers" line-number-mode
 		  :help "Toggle displaying line numbers in the mode-line"