equal
deleted
inserted
replaced
756 ((>= 23 emacs-major-version) |
756 ((>= 23 emacs-major-version) |
757 (cdr (assoc-string name (ucs-names)))) |
757 (cdr (assoc-string name (ucs-names)))) |
758 (t (error "Emacs version is too old and lacks Unicode support...")))) |
758 (t (error "Emacs version is too old and lacks Unicode support...")))) |
759 |
759 |
760 (when (>= emacs-major-version 23) |
760 (when (>= emacs-major-version 23) |
761 (define-key global-map "\C-x8g" (lambda nil (interactive) (ucs-insert (my--get-char "HRYVNIA SIGN")))) |
761 (define-key global-map "\C-x8g" (lambda nil (interactive) (insert-char (my--get-char "HRYVNIA SIGN")))) |
762 (define-key global-map "\C-x8e" (lambda nil (interactive) (ucs-insert (my--get-char "EURO SIGN")))) ) |
762 (define-key global-map "\C-x8e" (lambda nil (interactive) (insert-char (my--get-char "EURO SIGN")))) ) |
763 |
763 |
764 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
764 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
765 (defvar generic-define-mswindows-modes t) |
765 (defvar generic-define-mswindows-modes t) |
766 (defvar generic-define-unix-modes t) |
766 (defvar generic-define-unix-modes t) |
767 (require 'generic-x) |
767 (require 'generic-x) |