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

[Kevin Rodgers]

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)

> Bye, Reiner.
>
> [1]
> ,----[ `<f1> k <tool-bar> <print-buffer>' ]
> | <tool-bar> <print-buffer> runs the command print-buffer
> |   which is an interactive autoloaded Lisp function in `lpr'.
> | It is bound to <menu-bar> <file> <print-buffer>.
> | (print-buffer)
> `----
>
> [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])

--
Kevin Rodgers
Denver, Colorado, USA