From 5a9710f6e6f568ac00bd21dcb5c2af48469debbe Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 1 Jan 2015 17:29:51 +0200 Subject: [PATCH] Make sure tool-bar changes are reflected on display. lisp/tool-bar.el (tool-bar-local-item) (tool-bar-local-item-from-menu): Call force-mode-line-update to make sure the tool-bar changes show on display. --- lisp/ChangeLog | 6 ++++++ lisp/tool-bar.el | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74517345064..135ee4749dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-01-01 Eli Zaretskii + + * tool-bar.el (tool-bar-local-item) + (tool-bar-local-item-from-menu): Call force-mode-line-update to + make sure the tool-bar changes show on display. + 2014-12-29 Michael Albinus Sync with Tramp 2.2.11. diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 6e5c8b7c44c..6b732e9fb3f 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el @@ -174,7 +174,8 @@ is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally ICON.xbm, using `find-image'." (let* ((image-exp (tool-bar--image-expression icon))) (define-key-after map (vector key) - `(menu-item ,(symbol-name key) ,def :image ,image-exp ,@props)))) + `(menu-item ,(symbol-name key) ,def :image ,image-exp ,@props)) + (force-mode-line-update))) ;;;###autoload (defun tool-bar-add-item-from-menu (command icon &optional map &rest props) @@ -239,7 +240,8 @@ holds a keymap." (if (and (consp rest) (consp (car rest))) (setq rest (cdr rest))) (append `(menu-item ,(car defn) ,rest) - (list :image image-exp) props))))))) + (list :image image-exp) props)))) + (force-mode-line-update)))) ;;; Set up some global items. Additions/deletions up for grabs. -- 2.39.2