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

[Herbert Euler]

> Frobbing `tool-bar-map' should work[2] but it's there a cleaner and
> more simple way?
>
> [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])

A cleaner approach is to use `define-key', imo:

(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")))

Regards,
Guanpeng Xu

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/