equal
deleted
inserted
replaced
715 ;; (setq view-read-only t) |
715 ;; (setq view-read-only t) |
716 |
716 |
717 (setq read-quoted-char-radix 16) |
717 (setq read-quoted-char-radix 16) |
718 |
718 |
719 ;; https://emacs.stackexchange.com/questions/33117/showing-bytes-as-hexadecimal-escapes-rather-than-octal-escapes |
719 ;; https://emacs.stackexchange.com/questions/33117/showing-bytes-as-hexadecimal-escapes-rather-than-octal-escapes |
720 (when (and (>= emacs-major-version 22) (not (eq system-type 'darwin))) |
720 (cond |
|
721 ((>= emacs-major-version 26) |
|
722 (setq display-raw-bytes-as-hex t)) |
|
723 ((and (>= emacs-major-version 22) (not (eq system-type 'darwin))) |
721 (setq standard-display-table (make-display-table)) |
724 (setq standard-display-table (make-display-table)) |
722 (let ( (i ?\x80) hex hi low ) |
725 (let ( (i ?\x80) hex hi low ) |
723 (while (<= i ?\xff) |
726 (while (<= i ?\xff) |
724 (aset standard-display-table (unibyte-char-to-multibyte i) |
727 (aset standard-display-table (unibyte-char-to-multibyte i) |
725 (cl-map 'vector |
728 (cl-map 'vector |
726 (lambda (c) (make-glyph-code c 'escape-glyph)) |
729 (lambda (c) (make-glyph-code c 'escape-glyph)) |
727 (format "\\%02x" i))) |
730 (format "\\%02x" i))) |
728 (setq i (1+ i))))) |
731 (setq i (1+ i)))))) |
729 |
732 |
730 (defun my--get-char (name) |
733 (defun my--get-char (name) |
731 "Get character by Unicode `name'." |
734 "Get character by Unicode `name'." |
732 (cond |
735 (cond |
733 ((>= 26 emacs-major-version) |
736 ((>= 26 emacs-major-version) |