Mercurial > emacs
changeset 82936:85d72bedafd2
(x-gtk-stock-map): New variable.
(x-gtk-map-stock): New function.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Tue, 28 Aug 2007 10:16:00 +0000 |
| parents | 73eb55bef5f6 |
| children | 18c1a2214c41 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 37 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Tue Aug 28 10:15:23 2007 +0000 +++ b/lisp/term/x-win.el Tue Aug 28 10:16:00 2007 +0000 @@ -2556,5 +2556,42 @@ (and (fboundp 'menu-bar-open) (global-set-key [f10] 'x-menu-bar-open)) +(defcustom x-gtk-stock-map + '( + ("new" . "gtk-new") + ("open" . "gtk-open") + ("diropen" . "gtk-directory") + ("close" . "gtk-close") + ("save" . "gtk-save") + ("saveas" . "gtk-save-as") + ("undo" . "gtk-undo") + ("cut" . "gtk-cut") + ("copy" . "gtk-copy") + ("paste" . "gtk-paste") + ("search" . "gtk-find") + ("print" . "gtk-print") + ("preferences" . "gtk-preferences") + ("help" . "gtk-help") + ("left-arrow" . "gtk-go-back") + ("right-arrow" . "gtk-go-forward") + ("home" . "gtk-home") + ("jump-to" . "gtk-jump-to") + ("index" . "gtk-index") + ("search" . "gtk-find") + ("exit" . "gtk-quit")) + "How icons for tool bars are mapped to Gtk+ stock items. +Emacs must be compiled with the Gtk+ toolkit for this to have any effect." + :version "23.0" + :type 'alist + :group 'x) + +(defun x-gtk-map-stock (file) + "Map icon with file name FILE to a Gtk stock name, using `stock-map-gtk'." + (let ((value (and file + (assoc-string (file-name-sans-extension + (file-name-nondirectory file)) + x-gtk-stock-map)))) + (and value (cdr value)))) + ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 ;;; x-win.el ends here