From 7269106578fc1e7e4843457b4b25bff521aa58d5 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 21 Jan 2022 01:31:27 +0000 Subject: [PATCH] Update menu bars when `use-system-tooltips' changes on Haiku * lisp/term/haiku-win.el: Add new function as variable watcher for `use-system-tooltips'. (haiku-use-system-tooltips-watcher): New function. --- lisp/term/haiku-win.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el index a5cde929f96..4c06f7f58aa 100644 --- a/lisp/term/haiku-win.el +++ b/lisp/term/haiku-win.el @@ -138,6 +138,14 @@ If TYPE is nil, return \"text/plain\"." (defvaralias 'haiku-use-system-tooltips 'use-system-tooltips) +(defun haiku-use-system-tooltips-watcher (&rest _ignored) + "Variable watcher to force a menu bar update when `use-system-tooltip' changes. +This is necessary because on Haiku `use-system-tooltip' doesn't +take effect on menu items until the menu bar is updated again." + (force-mode-line-update t)) + +(add-variable-watcher 'use-system-tooltips #'haiku-use-system-tooltips-watcher) + (provide 'haiku-win) (provide 'term/haiku-win) -- 2.39.5