Ralf Zerres
b2fc283fdd
* convert ocatl escape sequences to hexglyphs Signed-off-by: Ralf Zerres <ralf.zerres@networkx.de>
14 lines
508 B
EmacsLisp
14 lines
508 B
EmacsLisp
(defun use-hex-not-octal ()
|
|
"Use hexadecimal escape sequences instead of octal."
|
|
(interactive)
|
|
(require 'cl-lib)
|
|
(unless buffer-display-table
|
|
(setq buffer-display-table (make-display-table)))
|
|
(setq unprintable (append (number-sequence 127 255) (number-sequence 0 8) (number-sequence 11 31)))
|
|
(cl-loop
|
|
for x in unprintable
|
|
do (aset buffer-display-table (unibyte-char-to-multibyte x)
|
|
(cl-map 'vector
|
|
(lambda (c) (make-glyph-code c 'escape-glyph))
|
|
(format "\\%02x" x)))))
|