From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Vollmar Newsgroups: gmane.emacs.help Subject: Re: making change of tool-bar entry persistent Date: Wed, 26 May 2010 00:53:30 +0200 Message-ID: <0547183E-969C-4E19-BEDA-98AF01B43F32@nf.mpg.de> References: <7A9A5E4F-DE42-449C-B94B-1966BBD90E46@nf.mpg.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary=Apple-Mail-6-168067669; protocol="application/pkcs7-signature"; micalg=sha1 X-Trace: dough.gmane.org 1274844343 27408 80.91.229.12 (26 May 2010 03:25:43 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 26 May 2010 03:25:43 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: Kevin Rodgers Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed May 26 05:25:42 2010 connect(): No such file or directory Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OH7FR-00009V-4h for geh-help-gnu-emacs@m.gmane.org; Wed, 26 May 2010 05:25:41 +0200 Original-Received: from localhost ([127.0.0.1]:54452 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OH7FO-0003c7-GK for geh-help-gnu-emacs@m.gmane.org; Tue, 25 May 2010 23:25:34 -0400 Original-Received: from [140.186.70.92] (port=54222 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OH6xH-0006Pw-Or for help-gnu-emacs@gnu.org; Tue, 25 May 2010 23:06:57 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OH30C-0005W3-9f for help-gnu-emacs@gnu.org; Tue, 25 May 2010 18:53:37 -0400 Original-Received: from mail.nf.mpg.de ([134.107.209.50]:38322) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OH30C-0005VY-0o for help-gnu-emacs@gnu.org; Tue, 25 May 2010 18:53:36 -0400 Original-Received: from [192.168.178.21] by mail.nf.mpg.de (Sun Java(tm) System Messaging Server 6.3-8.03 (built Apr 24 2009; 32bit)) with ESMTPSA id <0L2Z00K7IZPGDY00@mail.nf.mpg.de> for help-gnu-emacs@gnu.org; Wed, 26 May 2010 00:56:04 +0200 (MEST) In-reply-to: X-Mailer: Apple Mail (2.1078) X-detected-operating-system: by eggs.gnu.org: Solaris 9 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:73766 Archived-At: --Apple-Mail-6-168067669 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=iso-8859-1 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? >=20 > -- 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]=20 '(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" =09 (interactive) (put 'buffer-offer-save 'permanent-local t) (let ((default-major-mode 'org-mode))=20 (switch-to-new-untitled-buffer))) Thanks again, Kevin! Warm regards, Stefan --=20 Dr. Stefan Vollmar, Dipl.-Phys. Head of IT group Max-Planck-Institut f=FCr neurologische Forschung Gleuelerstr. 50, 50931 K=F6ln, 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 --Apple-Mail-6-168067669 Content-Disposition: attachment; filename=smime.p7s Content-Type: application/pkcs7-signature; name=smime.p7s Content-Transfer-Encoding: base64 MIAGCSqGSIb3DQEHAqCAMIACAQExCzAJBgUrDgMCGgUAMIAGCSqGSIb3DQEHAQAAoIIOHTCCBCEw ggMJoAMCAQICAgDHMA0GCSqGSIb3DQEBBQUAMHExCzAJBgNVBAYTAkRFMRwwGgYDVQQKExNEZXV0 c2NoZSBUZWxla29tIEFHMR8wHQYDVQQLExZULVRlbGVTZWMgVHJ1c3QgQ2VudGVyMSMwIQYDVQQD ExpEZXV0c2NoZSBUZWxla29tIFJvb3QgQ0EgMjAeFw0wNjEyMTkxMDI5MDBaFw0xOTA2MzAyMzU5 MDBaMFoxCzAJBgNVBAYTAkRFMRMwEQYDVQQKEwpERk4tVmVyZWluMRAwDgYDVQQLEwdERk4tUEtJ MSQwIgYDVQQDExtERk4tVmVyZWluIFBDQSBHbG9iYWwgLSBHMDEwggEiMA0GCSqGSIb3DQEBAQUA A4IBDwAwggEKAoIBAQDpm8NnhfkNrvWNVMOWUDU9YuluTO2U1wBblSJ01CDrNI/W7MAxBAuZgeKm FNJSoCgjhIt0iQReW+DieMF4yxbLKDU5ey2QRdDtoAB6fL9KDhsAw4bpXCsxEXsM84IkQ4wcOItq aACa7txPeKvSxhObdq3u3ibo7wGvdA/BCaL2a869080UME/15eOkyGKbghoDJzANAmVgTe3RCSMq ljVYJ9N2xnG2kB3E7f81hn1vM7PbD8URwoqDoZRdQWvY0hD1TP3KUazZve+Sg7va64sWVlZDz+HV Ez2mHycwzUlU28kTNJpxdcVs6qcLmPkhnSevPqM5OUhqjK3JmfvDEvK9AgMBAAGjgdkwgdYwcAYD VR0fBGkwZzBloGOgYYZfaHR0cDovL3BraS50ZWxlc2VjLmRlL2NnaS1iaW4vc2VydmljZS9hZl9E b3dubG9hZEFSTC5jcmw/LWNybF9mb3JtYXQ9WF81MDkmLWlzc3Vlcj1EVF9ST09UX0NBXzIwHQYD VR0OBBYEFEm3xs/oPR9/6kR7Eyn38QpwPt5kMB8GA1UdIwQYMBaAFDHDeRu69VPXF+CJei0XbAqz K50zMA4GA1UdDwEB/wQEAwIBBjASBgNVHRMBAf8ECDAGAQH/AgECMA0GCSqGSIb3DQEBBQUAA4IB AQA74Vp3wEgX3KkY7IGvWonwvSiSpspZGBJw7Cjy565/lizn8l0ZMfYTK3S9vYCyufdnyTmieTvh ERHua3iRM347XyYndVNljjNj7s9zw7CSI0khUHUjoR8Y4pSFPT8z6XcgjaK95qGFKUD2P3MyWA0J a6bahWzAP7uNZmRWJE6uDT8yNQFb6YyC2XJZT7GGhfF0hVblw/hc843uR7NTBXDn5U2KaYMo4RMJ hp5eyOpYHgwf+aTUWgRo/Sg+iwK2WLX2oSw3VwBnqyNojWOl75lrXP1LVvarQIc01BGSbOyHxQoL BzNytG8MHVQs2FHHzL8w00Ny8TK/jM5JY6gA9/IcMIIE5zCCA8+gAwIBAgIECs6x2DANBgkqhkiG 9w0BAQUFADBaMQswCQYDVQQGEwJERTETMBEGA1UEChMKREZOLVZlcmVpbjEQMA4GA1UECxMHREZO LVBLSTEkMCIGA1UEAxMbREZOLVZlcmVpbiBQQ0EgR2xvYmFsIC0gRzAxMB4XDTA3MDczMTEzMDgy NVoXDTE5MDYzMDAwMDAwMFowXjELMAkGA1UEBhMCREUxIDAeBgNVBAoTF01heC1QbGFuY2stR2Vz ZWxsc2NoYWZ0MQ8wDQYDVQQDEwZNUEcgQ0ExHDAaBgkqhkiG9w0BCQEWDW1wZy1jYUBtcGcuZGUw ggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDYUXKeoNTLgkGwbani4rlua5jzlzISfHna j/5qS+mojQqA/eYa0bGucylV5hyQuyJz7d4gRckdhMDV8DZIxERUIsFlXFj6HGHjaZjlhIHbo4S1 2GjLhTH5YZ37O7MHVw0L/JhhzUIxESM1ZfRT/xLqhz2idJYjT98W9OFvzPgT0yrdieMzkLUz5X/f pY8MuyYBgxnddBJRw6ZtlhdCml4F8Q35pSb8J2qANiwuJVu3WCTgL/ydo3eA8vDieMMZ7O+L1wAn CzBbHAjJ5H6xU1B7mlwmu7V3pToKPgcWmlO0HcTpa68McNTGGiY8pO0/Rn1fXkqDYf8z0lPdWUWx bM1RAgMBAAGjggGvMIIBqzASBgNVHRMBAf8ECDAGAQH/AgEBMAsGA1UdDwQEAwIBBjAdBgNVHQ4E FgQUAtYebgmrv1hlpwo8SDNh0c59w1swHwYDVR0jBBgwFoAUSbfGz+g9H3/qRHsTKffxCnA+3mQw GAYDVR0RBBEwD4ENbXBnLWNhQG1wZy5kZTCBiAYDVR0fBIGAMH4wPaA7oDmGN2h0dHA6Ly9jZHAx LnBjYS5kZm4uZGUvZ2xvYmFsLXJvb3QtY2EvcHViL2NybC9jYWNybC5jcmwwPaA7oDmGN2h0dHA6 Ly9jZHAyLnBjYS5kZm4uZGUvZ2xvYmFsLXJvb3QtY2EvcHViL2NybC9jYWNybC5jcmwwgaIGCCsG AQUFBwEBBIGVMIGSMEcGCCsGAQUFBzAChjtodHRwOi8vY2RwMS5wY2EuZGZuLmRlL2dsb2JhbC1y b290LWNhL3B1Yi9jYWNlcnQvY2FjZXJ0LmNydDBHBggrBgEFBQcwAoY7aHR0cDovL2NkcDIucGNh LmRmbi5kZS9nbG9iYWwtcm9vdC1jYS9wdWIvY2FjZXJ0L2NhY2VydC5jcnQwDQYJKoZIhvcNAQEF BQADggEBABtJz5i/SGqQOficdRUN6myFVmVelCYgkGT+zX7frnBRJFoVVafXolstZdVB7ZpH9FAc qj8O6FTZyhAANwh3+Y1D6xYBWTB7mQGy0lUoUL+j0msZjaMvyj/2LCQp7cKB5vA4h6Ntq5BN5MPc aRhunzjJey/i+J/3jMdG7KpufV47Gl0E8ky9lDegaM7SToG4IOQKwv1wsnuHoxoGLRewxO7FmYd9 uq9f4L2mHtqgq+vibT1DeehT0HGPnrjjd8NK6g2TvZwirwjydbGs7szB5oxDm/pfWoJxYzO68HKT iVBlmaWMLpGw4/UsLE+5xJHpvNXfkYCQ3T+k99KBUZuIpKwwggUJMIID8aADAgECAgQP0SFlMA0G CSqGSIb3DQEBBQUAMF4xCzAJBgNVBAYTAkRFMSAwHgYDVQQKExdNYXgtUGxhbmNrLUdlc2VsbHNj aGFmdDEPMA0GA1UEAxMGTVBHIENBMRwwGgYJKoZIhvcNAQkBFg1tcGctY2FAbXBnLmRlMB4XDTEw MDMzMDA3MTAxM1oXDTEzMDMyOTA3MTAxM1owgYMxCzAJBgNVBAYTAkRFMSAwHgYDVQQKExdNYXgt UGxhbmNrLUdlc2VsbHNjaGFmdDE5MDcGA1UECxMwTWF4LVBsYW5jay1JbnN0aXR1dCBmdWVyIG5l dXJvbG9naXNjaGUgRm9yc2NodW5nMRcwFQYDVQQDEw5TdGVmYW4gVm9sbG1hcjCCASIwDQYJKoZI hvcNAQEBBQADggEPADCCAQoCggEBAKJ5Q4/00WAki7/O9UpcBage000pRhy1WNet3uCO6pa5d0Fg KroZ8yaNBF9wtgBDB96bYXIOGtpvjI40hTNYZrEZ2RFIjcHxuIabbaM71XwZpy/dTI5JEFrWtGAo av6T8pEcLWwAB0cPWD32q9Wsc1eGhH4KxnYMfppvc9oMvL43NLnt4iFmxhtFpeiDj/YzkhRtNOm1 aX24ylF415b+lrlJO8LarKj0Ao+eylpnTjTM+//4d8++jbar0Kxrgn1AIdPNEM56xKn0QsLMXF4/ Yv7AaHL3EFcClJN7AiYsmSPJvQV1iWxUNI3ki0cxVfVFxylVK0/ATwacVQx/Ji9fGPMCAwEAAaOC AacwggGjMAkGA1UdEwQCMAAwCwYDVR0PBAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEF BQcDBDAdBgNVHQ4EFgQUVK+so4zv/Jlf1hLI5tsbsWvUnTEwHwYDVR0jBBgwFoAUAtYebgmrv1hl pwo8SDNh0c59w1swHAYDVR0RBBUwE4ERdm9sbG1hckBuZi5tcGcuZGUwdwYDVR0fBHAwbjA1oDOg MYYvaHR0cDovL2NkcDEucGNhLmRmbi5kZS9tcGctY2EvcHViL2NybC9jYWNybC5jcmwwNaAzoDGG L2h0dHA6Ly9jZHAyLnBjYS5kZm4uZGUvbXBnLWNhL3B1Yi9jcmwvY2FjcmwuY3JsMIGSBggrBgEF BQcBAQSBhTCBgjA/BggrBgEFBQcwAoYzaHR0cDovL2NkcDEucGNhLmRmbi5kZS9tcGctY2EvcHVi L2NhY2VydC9jYWNlcnQuY3J0MD8GCCsGAQUFBzAChjNodHRwOi8vY2RwMi5wY2EuZGZuLmRlL21w Zy1jYS9wdWIvY2FjZXJ0L2NhY2VydC5jcnQwDQYJKoZIhvcNAQEFBQADggEBAMLAoN8vRhG0/YD+ REms9mWKjIH3D3pb90z2smeOMkQfu9UvDiCOMlqor52F/kBu60Z3Z2PAFGUS6ziihfuTrmuyvEJu D50k2vSUxHpn/pd3jLsplQiQNx3ZXByu3Jf0VfbLZeO6ZUD8Gs6C8DXD54F/nGy3TsS3dCSRtw/7 +PZ/GjaErVJRniPGJ4+T9T6mH2hej0EcVWkX2wIMtz9HHQvh0egRLxkQjJ1yEPFLc2K1kwIIElmQ tIOJHcF8mLzd3DCk8iRaJ/Pj/3X2wZHecVTAXIcZgVQDXT9B3iG/Q65RmaNI36UCQjmNirL7gYXh /hjy1VnFwLlZa9xxK/PjttkxggLeMIIC2gIBATBmMF4xCzAJBgNVBAYTAkRFMSAwHgYDVQQKExdN YXgtUGxhbmNrLUdlc2VsbHNjaGFmdDEPMA0GA1UEAxMGTVBHIENBMRwwGgYJKoZIhvcNAQkBFg1t cGctY2FAbXBnLmRlAgQP0SFlMAkGBSsOAwIaBQCgggFNMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0B BwEwHAYJKoZIhvcNAQkFMQ8XDTEwMDUyNTIyNTMzMVowIwYJKoZIhvcNAQkEMRYEFMIiuIdFBaAr W5ZG+Ckq0uoLfbLFMHUGCSsGAQQBgjcQBDFoMGYwXjELMAkGA1UEBhMCREUxIDAeBgNVBAoTF01h eC1QbGFuY2stR2VzZWxsc2NoYWZ0MQ8wDQYDVQQDEwZNUEcgQ0ExHDAaBgkqhkiG9w0BCQEWDW1w Zy1jYUBtcGcuZGUCBA/RIWUwdwYLKoZIhvcNAQkQAgsxaKBmMF4xCzAJBgNVBAYTAkRFMSAwHgYD VQQKExdNYXgtUGxhbmNrLUdlc2VsbHNjaGFmdDEPMA0GA1UEAxMGTVBHIENBMRwwGgYJKoZIhvcN AQkBFg1tcGctY2FAbXBnLmRlAgQP0SFlMA0GCSqGSIb3DQEBAQUABIIBAAUZlXPjwC/ecjIBMuYC Fv6Of8272kuK4tJEzw/dznM/LgW1diu/WsNCELvxzb/EqF4fT9j/Iu0KWnHc1S5FLdcwgka7TQov w9tNXvCPmvW6M4PXuDgMKTFfTZjhLxJnvI7YeEAM33fuDraIDLFX9FeiP0DmGR9NMsAlqNLcOisI YrutxOnAP9gbDXY/MImaXmnrqFkMTBOTT7ReFxJaDKqakEpFa/65pkzTxHm7tNrJ9KO3mbPjtmwU 4R0GM0c5WRpii7/JeWwuDTAbdxD9ub0n6Oa7SRLMClaBL65oN9asL0DhFLuBkqUCX3L3eiowI0GT J32yV2lOfhE5w9uJ/sAAAAAAAAA= --Apple-Mail-6-168067669--