.emacs-my
changeset 525 c8d4f5368b04
parent 524 3000e8e36158
child 526 9e613d7de6e1
--- a/.emacs-my	Thu Dec 23 00:57:29 2010 +0200
+++ b/.emacs-my	Wed Jan 12 12:25:01 2011 +0200
@@ -220,6 +220,19 @@
 
 (setq read-quoted-char-radix 16)
 
+(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)))
+    (setq i (+ i 1))))
+
 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes.
 (setq generic-define-mswindows-modes t)
 (setq generic-define-unix-modes t)