# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1319318503 -10800
# Node ID 2a81232aa82f4f866551a57cdd5fd0beb04c9a9c
# Parent  fb4d18368c1f24aa5c429c2c22001195d0f54fbf
Add 'my-print-unicode' which print UNICODE table.

diff -r fb4d18368c1f -r 2a81232aa82f .emacs-my
--- a/.emacs-my	Sat Oct 22 18:07:59 2011 +0300
+++ b/.emacs-my	Sun Oct 23 00:21:43 2011 +0300
@@ -449,6 +449,20 @@
       (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "chars, unicode")
+
+(defun my-print-unicode (&optional start end)
+  "Print UNICODE table."
+  (interactive "nstart: \nnend: ")
+  (switch-to-buffer (get-buffer-create "*UNICODE*"))
+  (erase-buffer)
+  (let ( (i start) )
+    (while (<= i end)
+      (insert (format "%s: U+%04x, %s\n" (char-to-string i) i (get-char-code-property i 'name)))
+      (setq i (1+ i))
+      )))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "search, isearch, occur")
 
 (setq case-fold-search t)