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

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Tue, Apr 03 2007, Herbert Euler wrote:

> (define-key tool-bar-map
>  [print-buffer]
>  '(menu-item "Print Buffer with Faces"
>              ps-print-buffer-with-faces
>              (nil)
>              :enable
>              (menu-bar-menu-frame-live-and-visible-p)
>              :help "Print current buffer with faces"
>              :image (image :type xpm :file
> "/usr/local/share/emacs/23.0.0/etc/images/print.xpm")))

Thanks.  I hoped that there's a way without hard-coding so many
elements.  At least the image location can be avoided:

(define-key tool-bar-map
 [print-buffer]
 `(menu-item "Print Buffer with Faces"
             ps-print-buffer-with-faces
             (nil)
             :enable
             (menu-bar-menu-frame-live-and-visible-p)
             :help "Print current buffer with faces"
             :image (image :type xpm :file
			   ,(image-search-load-path "print.xpm")))

But after glancing through `tool-bar-local-item-from-menu', it doesn't
look promising.

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