From 7b5368d489fbc0aae9938ee33bc8453bed06cf32 Mon Sep 17 00:00:00 2001
From: Philippe Vaucher <address@hidden>
Date: Wed, 27 Feb 2019 20:37:10 +0100
Subject: [PATCH 2/2] Use inline images for sort icons

---
 lisp/emacs-lisp/tabulated-list.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 7162334822..ff43b3a2ae 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -39,12 +39,20 @@
 (defgroup tabulated-list nil
   "Tabulated-list customization group.")
 
-(defcustom tabulated-list-sort-icon-asc " ▼"
+(defcustom tabulated-list-sort-icon-asc (propertize " "  'display (create-image "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\" \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">
+<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" version=\"1.1\"  width=\"24\" height=\"24\" viewBox=\"0 0 24 24\">
+   <path fill=\"#000000\" d=\"M7,10L12,15L17,10H7Z\" />
+</svg>" 'svg t))
   "Icon to display when sort order is ascending."
   :group 'tabulated-list
   :type 'string)
 
-(defcustom tabulated-list-sort-icon-desc " ▲"
+(defcustom tabulated-list-sort-icon-desc (propertize " "  'display (create-image "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\" \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">
+<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" version=\"1.1\"  width=\"24\" height=\"24\" viewBox=\"0 0 24 24\">
+   <path fill=\"#000000\" d=\"M7,10L12,15L17,10H7Z\" />
+</svg>" 'svg t))
   "Icon to display when sort order is descending."
   :group 'tabulated-list
   :type 'string)
-- 
2.17.1