bug#71721: [PATCH] Add icons used by 'mpc.el' to 'x-gtk-stock-map'

[john muhl <jm@pub.pink>]

[-- Attachment #1: Type: text/plain, Size: 90 bytes --]

Tags: patch

This adds entries to map mpc.el’s tool-bar icons to GTK stock
icons.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Add-icons-used-by-mpc.el-to-x-gtk-stock-map.patch --]
[-- Type: text/patch, Size: 2217 bytes --]

From c1e833bcbb4fd1308b912e57e72390e2c078fd54 Mon Sep 17 00:00:00 2001
From: john muhl <jm@pub.pink>
Date: Wed, 19 Jun 2024 11:47:42 -0500
Subject: [PATCH] Add icons used by 'mpc.el' to 'x-gtk-stock-map'

* lisp/term/x-win.el (x-gtk-stock-map):
* lisp/term/pgtk-win.el (x-gtk-stock-map): Include tool-bar icons
used by 'mpc.el'.
---
 lisp/term/pgtk-win.el | 8 ++++++++
 lisp/term/x-win.el    | 8 ++++++++
 2 files changed, 16 insertions(+)

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index 13300270556..e77ee56c465 100644
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -254,6 +254,14 @@ x-gtk-stock-map
     ;; No themed versions available:
     ;; mail/preview (combining stock_mail and stock_zoom)
     ;; mail/save    (combining stock_mail, stock_save and stock_convert)
+    ("images/mpc/prev" . "media-skip-backward")
+    ("images/mpc/rewind" . "media-seek-backward")
+    ("images/mpc/pause" . "media-playback-pause")
+    ("images/mpc/play" . "media-playback-start")
+    ("images/mpc/ffwd" . "media-seek-forward")
+    ("images/mpc/next" . "media-skip-forward")
+    ("images/mpc/stop" . "media-playback-stop")
+    ("images/mpc/add" . "list-add")
     ))
   "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.
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 98dd576fea2..cb9ae081f0f 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1442,6 +1442,14 @@ x-gtk-stock-map
     ;; No themed versions available:
     ;; mail/preview (combining stock_mail and stock_zoom)
     ;; mail/save    (combining stock_mail, stock_save and stock_convert)
+    ("images/mpc/prev" . "media-skip-backward")
+    ("images/mpc/rewind" . "media-seek-backward")
+    ("images/mpc/pause" . "media-playback-pause")
+    ("images/mpc/play" . "media-playback-start")
+    ("images/mpc/ffwd" . "media-seek-forward")
+    ("images/mpc/next" . "media-skip-forward")
+    ("images/mpc/stop" . "media-playback-stop")
+    ("images/mpc/add" . "list-add")
     ))
   "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.
-- 
2.45.2