[elpa] externals/ergoemacs-mode afc0844 198/325: Fix font problems in help image

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit afc08449d0b7b2738af45fb33e0c9c0850affb67
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Fix font problems in help image
---
 ergoemacs-translate.el | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index c40ff1d..bc11f68 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -1105,23 +1105,14 @@ If :type is :quail use the 180 length string that
            ((string-match "[a-zA-Z0-9]" char)
             char)
            (t
+            ;; Insert fancy characters as is and hope that the font
+            ;; will work.
             (setq ret (format "&#x%04X;"
                                (encode-char
                                 (with-temp-buffer
                                   (insert char)
                                   (char-before)) 'unicode))
-                  font (ergoemacs-key-description--display-char-p char))
-            (when font
-              (setq font (or (font-get font :name)
-                             (font-get font :family)))
-              (when (and font (symbolp font))
-                (setq font (symbol-name font)))
-              (setq default-font (or (font-get default-font :name)
-                                     (font-get default-font :family)))
-              (when (and default-font (symbolp default-font))
-                (setq default-font (symbol-name default-font)))
-              (unless (string= font default-font)
-                (setq ret (format "<text style=\"font-family: 
'%s'\">%s</text>" font ret))))
+                  )
             ret)))
       (while (< i (length char))
         (setq ret (concat ret (ergoemacs-translate--svg-quote (substring char 
i (+ i 1))))