Mercurial > emacs
comparison lisp/term/x-win.el @ 91204:53108e6cea98
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 06 Dec 2007 09:51:45 +0000 |
| parents | f85bdd140960 2a94c16792c6 |
| children | 56a72e2bd635 |
comparison
equal
deleted
inserted
replaced
| 91203:db40129142b2 | 91204:53108e6cea98 |
|---|---|
| 2574 (string :tag "Stock/named"))))) | 2574 (string :tag "Stock/named"))))) |
| 2575 :group 'x) | 2575 :group 'x) |
| 2576 | 2576 |
| 2577 (defun x-gtk-map-stock (file) | 2577 (defun x-gtk-map-stock (file) |
| 2578 "Map icon with file name FILE to a Gtk+ stock name, using `x-gtk-stock-map'." | 2578 "Map icon with file name FILE to a Gtk+ stock name, using `x-gtk-stock-map'." |
| 2579 (let* ((file-sans (file-name-sans-extension file)) | 2579 (if (stringp file) |
| 2580 (key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)" file-sans) | 2580 (let* ((file-sans (file-name-sans-extension file)) |
| 2581 (match-string 1 file-sans))) | 2581 (key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)" file-sans) |
| 2582 (value)) | 2582 (match-string 1 file-sans))) |
| 2583 (mapc (lambda (elem) | 2583 (value)) |
| 2584 (let ((assoc (if (symbolp elem) (symbol-value elem) elem))) | 2584 (mapc (lambda (elem) |
| 2585 (or value (setq value (assoc-string (or key file-sans) assoc))))) | 2585 (let ((assoc (if (symbolp elem) (symbol-value elem) elem))) |
| 2586 icon-map-list) | 2586 (or value (setq value (assoc-string (or key file-sans) |
| 2587 (and value (cdr value)))) | 2587 assoc))))) |
| 2588 icon-map-list) | |
| 2589 (and value (cdr value))) | |
| 2590 nil)) | |
| 2588 | 2591 |
| 2589 (provide 'x-win) | 2592 (provide 'x-win) |
| 2590 | 2593 |
| 2591 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 | 2594 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 |
| 2592 ;;; x-win.el ends here | 2595 ;;; x-win.el ends here |