[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: making change of tool-bar entry persistent
From: |
Stefan Vollmar |
Subject: |
Re: making change of tool-bar entry persistent |
Date: |
Wed, 26 May 2010 00:53:30 +0200 |
Dear Kevin,
On 25.05.2010, at 08:23, Kevin Rodgers wrote:
> Stefan Vollmar wrote:
>> Hallo,
>> I want to re-define what happends when an exising toolbar icon is
>> pressed. In the Emacs documentation I found an example similar to
>> this:
>> (define-key global-map [tool-bar new-file]
>> '(menu-item "New Buffer" my-new-buffer
>> :image (image :type xpm :file "new.xpm")))
> > Executing this code in Emacs 23.2 this will indeed show the desired
> > effect - but only for about 2 seconds: the tool-bar is then
> > automatically redrawn and behaves as before. How can I modify an
> > existing toolbar so that the change is persistent?
>
> -- Variable: tool-bar-map
> By default, the global map binds `[tool-bar]' as follows:
> (global-set-key [tool-bar]
> '(menu-item "tool bar" ignore
> :filter (lambda (ignore) tool-bar-map)))
> Thus the tool bar map is derived dynamically from the value of
> variable `tool-bar-map' and you should normally adjust the default
> (global) tool bar by changing that map. Major modes may replace
> the global bar completely by making `tool-bar-map' buffer-local
> and set to a keymap containing only the desired items. Info mode
> provides an example.
I looked up how changing the toolbar is done in info.el and was able to solve
my problem with this code:
(defvar my-tool-bar-map tool-bar-map)
(define-key my-tool-bar-map [new-file]
'(menu-item "New Document (Org)" my-new-buffer
:image (image :type xpm :file "new.xpm")))
(set (make-local-variable 'tool-bar-map) my-tool-bar-map)
The "New File" icon (left-most in Emacs 23.2) will now use my own function (a
wrapper for Kevin Rodger's switch-to-new-untitled-buffer code, thanks!), which
is
(defun my-new-buffer ()
"creates an empty new 'untitled' buffer"
(interactive)
(put 'buffer-offer-save 'permanent-local t)
(let ((default-major-mode 'org-mode))
(switch-to-new-untitled-buffer)))
Thanks again, Kevin!
Warm regards,
Stefan
--
Dr. Stefan Vollmar, Dipl.-Phys.
Head of IT group
Max-Planck-Institut für neurologische Forschung
Gleuelerstr. 50, 50931 Köln, Germany
Tel.: +49-221-4726-213 FAX +49-221-4726-298
Tel.: +49-221-478-5713 Mobile: 0160-93874279
Email: vollmar@nf.mpg.de http://www.nf.mpg.de
smime.p7s
Description: S/MIME cryptographic signature