mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

Make adding things to the tool bar show up on next redisplay

Browse Source 
* lisp/tool-bar.el (tool-bar--flush-cache): New function.
(tool-bar-add-item): Flush the cache (bug#43397).
This commit is contained in:
Lars Ingebrigtsen 2022-05-03 18:19:13 +02:00
parent 0916fd3aaa
commit 316c082d58
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/tool-bar.el
View File

@ -91,6 +91,10 @@ functions.")
(defconst tool-bar-keymap-cache (make-hash-table :weakness t :test 'equal))
(defun tool-bar--flush-cache ()
(setf (gethash (cons (frame-terminal) tool-bar-map) tool-bar-keymap-cache)
nil))
(defun tool-bar-make-keymap (&optional _ignore)
"Generate an actual keymap from `tool-bar-map'.
Its main job is to figure out which images to use based on the display's
@ -139,7 +143,8 @@ ICON.xbm, using `find-image'.
Use this function only to make bindings in the global value of `tool-bar-map'.
To define items in any other map, use `tool-bar-local-item'."
(apply #'tool-bar-local-item icon def key tool-bar-map props))
(apply #'tool-bar-local-item icon def key tool-bar-map props)
(tool-bar--flush-cache))
(defun tool-bar--image-expression (icon)
"Return an expression that evaluates to an image spec for ICON."