[Emacs-diffs] emacs-24 5a9710f: Make sure tool-bar changes are reflected on display.

[Eli Zaretskii]

branch: emacs-24
commit 5a9710f6e6f568ac00bd21dcb5c2af48469debbe
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 7451734..135ee47 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-01  Eli Zaretskii  <address@hidden>
+
+       * 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  <address@hidden>
 
        Sync with Tramp 2.2.11.
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index 6e5c8b7..6b732e9 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.