equal
deleted
inserted
replaced
741 (setq i (1+ i)))))) |
741 (setq i (1+ i)))))) |
742 |
742 |
743 (defun my--get-char (name) |
743 (defun my--get-char (name) |
744 "Get character by Unicode `name'." |
744 "Get character by Unicode `name'." |
745 (cond |
745 (cond |
746 ((>= 26 emacs-major-version) |
746 ((<= 26 emacs-major-version) |
747 (gethash name (ucs-names))) |
747 (gethash name (ucs-names))) |
748 ((>= 23 emacs-major-version) |
748 ((<= 23 emacs-major-version) |
749 (cdr (assoc-string name (ucs-names)))) |
749 (cdr (assoc-string name (ucs-names)))) |
750 (t (error "Emacs version is too old and lacks Unicode support...")))) |
750 (t (error "Emacs version is too old and lacks Unicode support...")))) |
751 |
751 |
752 (when (>= emacs-major-version 23) |
752 (when (>= emacs-major-version 23) |
753 (define-key global-map "\C-x8g" (lambda nil (interactive) (insert-char (my--get-char "HRYVNIA SIGN")))) |
753 (define-key global-map "\C-x8g" (lambda nil (interactive) (insert-char (my--get-char "HRYVNIA SIGN")))) |