bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#43397: 28.0.50; Adding tool bar items: update tool bar


From: Caio Henrique
Subject: bug#43397: 28.0.50; Adding tool bar items: update tool bar
Date: Mon, 14 Sep 2020 18:44:03 -0300
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux)

Gnus has a function called gnus-tool-bar-update. I tried using it but
got the same result, i.e. the icon is only displayed when I click with
the mouse on the buffer. 

1. emacs -Q
2. eval this:
(progn
  (defvar tool-bar-mode)

  (defun gnus-tool-bar-update (&rest ignore)
    "Update the tool bar."
    (when (and (boundp 'tool-bar-mode)
               tool-bar-mode)
      (let* ((args nil)
             (func (cond ((fboundp 'tool-bar-update)
                          'tool-bar-update)
                         ((fboundp 'force-window-update)
                          'force-window-update)
                         ((fboundp 'redraw-frame)
                          (setq args (list (selected-frame)))
                          'redraw-frame)
                         (t 'ignore))))
        (apply func args))))

  (tool-bar-add-item-from-menu 'undo-redo
                               "redo" nil :vert-only t)

  (gnus-tool-bar-update))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]