--- 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)