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