[Emacs-diffs] Changes to emacs/lisp/term/x-win.el,v

[Jan Djärv]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jan Djärv <jhd>        07/08/28 10:16:00

Index: x-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.203
retrieving revision 1.204
diff -u -b -r1.203 -r1.204
--- x-win.el    26 Jul 2007 05:27:31 -0000      1.203
+++ x-win.el    28 Aug 2007 10:16:00 -0000      1.204
@@ -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