branch: externals/ergoemacs-mode
commit afc08449d0b7b2738af45fb33e0c9c0850affb67
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@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))))
