Replace tool-bar print-buffer with ps-print-buffer-faces?

[Reiner Steib]

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/