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

["Herbert Euler" <herberteuler@hotmail.com>]

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

You forgot a comma here: there should be one before
`menu-bar-menu-frame-live-and-visible-p':

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


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

You have to provide *all* the fields in order to keep the icon.

Regards,
Guanpeng Xu

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