[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Replace tool-bar print-buffer with ps-print-buffer-faces?
From: |
Reiner Steib |
Subject: |
Replace tool-bar print-buffer with ps-print-buffer-faces? |
Date: |
Mon, 02 Apr 2007 22:01:22 +0200 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.96 (gnu/linux) |
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?
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])
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
- Replace tool-bar print-buffer with ps-print-buffer-faces?,
Reiner Steib <=