From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Reiner Steib <reinersteib+gmane@imap.cc>
Newsgroups: gmane.emacs.help
Subject: Replace tool-bar print-buffer with ps-print-buffer-faces?
Date: Mon, 02 Apr 2007 22:01:22 +0200
Message-ID: <v9d52mlf59.fsf@marauder.physik.uni-ulm.de>
Reply-To: Reiner Steib <Reiner.Steib@gmx.de>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1175546298 12119 80.91.229.12 (2 Apr 2007 20:38:18 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 2 Apr 2007 20:38:18 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Apr 02 22:38:10 2007
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
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.50)
	id 1HYTHy-0001mW-Lv
	for geh-help-gnu-emacs@m.gmane.org; Mon, 02 Apr 2007 22:38:06 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1HYTL2-0005oR-Ga
	for geh-help-gnu-emacs@m.gmane.org; Mon, 02 Apr 2007 16:41:16 -0400
Original-Newsgroups: gnu.emacs.help
X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+<OV~fQY=S61n*cJ|<hmq6\]&vOTQs+z`}WHHM/
	E?ZYqI^aM0-^*)pWU&1tb.Tw}GDqeE.+(!jEP8@b&IcxNU1QQz%1d1; aeOzyizTPc;
	q(88/ar*bN|S IU"]xqU`R)i%Jp-lu3<!7QjP@, 9xqE@*G{3ESw3x#1N1?,
	(r0&q(1LKm)hS@d89lfo+'=Y$#7"g<&v hNp|fgfb<eK="G5fxvZ3FyyWQNI9JL+C<g
Mail-Copies-To: nobody
User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.96 (gnu/linux)
Cancel-Lock: sha1:K/jnViiTnc7CYF/o077Tk907kyo=
Original-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de
Original-X-Trace: news.uni-ulm.de 1175544097 134.60.10.123 (2 Apr 2007 22:01:37 +0200)
Original-Lines: 32
Original-Path: shelby.stanford.edu!headwall.stanford.edu!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!feeder.news-service.com!newsfeed.freenet.de!news.tiscali.de!news.belwue.de!news.uni-ulm.de!viandante.physik.uni-ulm.de!not-for-mail
Original-Xref: shelby.stanford.edu gnu.emacs.help:146770
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 <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=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:42374
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/42374>

Hi,

I wonder what's the best way to _replace_ `print-buffer' in the tool
bar [1] with with `ps-print-buffer-faces'?

Frobbing `tool-bar-map' should work[2] but it's there a cleaner and
more simple way?

Bye, Reiner.

[1]
,----[ `<f1> k <tool-bar> <print-buffer>' ]
| <tool-bar> <print-buffer> runs the command print-buffer
|   which is an interactive autoloaded Lisp function in `lpr'.
| It is bound to <menu-bar> <file> <print-buffer>.
| (print-buffer)
`----

[2]
ELISP> (assoc 'print-buffer tool-bar-map)
(print-buffer menu-item "Print Buffer" print-buffer
	      (nil)
	      :enable
	      (menu-bar-menu-frame-live-and-visible-p)
	      :help "Print current buffer with page headings" :image
	      (image :type xpm :file "[...]/etc/images/print.xpm"))

==> (setcdr (assoc 'print-buffer tool-bar-map) [new entry])
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/