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

[Reiner Steib]

On Wed, Apr 04 2007, Kevin Rodgers wrote:

> Reiner Steib wrote:
>> 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?
>
> (define-key tool-bar-map
>   (where-is-internal 'print-buffer tool-bar-map 'non-ascii)
>   'ps-print-buffer)

When I eval this, the print button just disappears:

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 
"[prefix]/share/emacs/22.0.97/etc/images/print.xpm"))

ELISP> (define-key tool-bar-map
  (where-is-internal 'print-buffer tool-bar-map 'non-ascii)
  'ps-print-buffer)

ps-print-buffer
ELISP> (assoc 'print-buffer tool-bar-map)
(print-buffer . ps-print-buffer)

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/