723 

   723 

   724 (defun my--get-char (name)

   724 (defun my--get-char (name)

   725   "Get character by Unicode `name'."

   725   "Get character by Unicode `name'."

   726   (cond

   726   (cond

   727    ((>= 26 emacs-major-version)

   727    ((>= 26 emacs-major-version)

   729    ((>= 23 emacs-major-version)

   729    ((>= 23 emacs-major-version)

   730     (cdr (assoc-string name (ucs-names))))

   730     (cdr (assoc-string name (ucs-names))))

   731    (t (error "Emacs version is too old and lacks Unicode support..."))))

   731    (t (error "Emacs version is too old and lacks Unicode support..."))))

   732 

   732 

   733 (when (>= emacs-major-version 23)

   733 (when (>= emacs-major-version 23)