From: Gerd Möllmann <gerd@gnu.org>
Date: Wed, 29 Jun 2022 05:53:35 +0000 (+0200)
Subject: Ensure correct toggle menu item display
X-Git-Tag: emacs-29.0.90~1447^2~1398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c2b1d37e729f7af9e9661be7ece8348bae70ffa;p=emacs.git

Ensure correct toggle menu item display

* lisp/menu-bar.el (menu-bar-make-toggle-command): Call
force-mode-line-update. (Bug#56155)
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 4a943d25284..92989fcfb2e 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -749,7 +749,11 @@ by \"Save Options\" in Custom buffers.")
        ;; interactively, because the purpose is to mark the variable as a
        ;; candidate for `Save Options', and we do not want to save options that
        ;; the user has already set explicitly in the init file.
-       (when interactively (customize-mark-as-set ',variable)))
+       (when interactively
+         (customize-mark-as-set ',variable))
+       ;; Toggle menu items must make sure that the menu is updated so
+       ;; that toggle marks are drawn in the right state.
+       (force-mode-line-update t))
      '(menu-item ,item-name ,command :help ,help
                  :button (:toggle . (and (default-boundp ',variable)
                                          (default-value ',variable)))