Expression was simplified.
--- a/.emacs-my Thu Mar 12 12:27:12 2020 +0200
+++ b/.emacs-my Thu Mar 12 12:32:22 2020 +0200
@@ -716,18 +716,15 @@
(setq read-quoted-char-radix 16)
+;; https://emacs.stackexchange.com/questions/33117/showing-bytes-as-hexadecimal-escapes-rather-than-octal-escapes
(when (and (>= emacs-major-version 22) (not (eq system-type 'darwin)))
(setq standard-display-table (make-display-table))
(let ( (i ?\x80) hex hi low )
(while (<= i ?\xff)
- (setq hex (format "%x" i))
- (setq hi (elt hex 0))
- (setq low (elt hex 1))
(aset standard-display-table (unibyte-char-to-multibyte i)
- (vector (make-glyph-code ?\\ 'escape-glyph)
- (make-glyph-code ?x 'escape-glyph)
- (make-glyph-code hi 'escape-glyph)
- (make-glyph-code low 'escape-glyph)))
+ (cl-map 'vector
+ (lambda (c) (make-glyph-code c 'escape-glyph))
+ (format "\\%02x" i)))
(setq i (1+ i)))))
(defun my--get-char (name)