equal
deleted
inserted
replaced
645 (define-key global-map "\C-x8g" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "HRYVNIA SIGN" (ucs-names) t))))) |
645 (define-key global-map "\C-x8g" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "HRYVNIA SIGN" (ucs-names) t))))) |
646 (define-key global-map "\C-x8e" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "EURO SIGN" (ucs-names) t))))) |
646 (define-key global-map "\C-x8e" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "EURO SIGN" (ucs-names) t))))) |
647 ) |
647 ) |
648 |
648 |
649 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
649 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
650 (setq generic-define-mswindows-modes t) |
650 (defvar generic-define-mswindows-modes t) |
651 (setq generic-define-unix-modes t) |
651 (defvar generic-define-unix-modes t) |
652 (require 'generic-x) |
652 (require 'generic-x) |
653 |
653 |
654 ;; The following commands are usually disabled by default. Enable them... |
654 ;; The following commands are usually disabled by default. Enable them... |
655 (put 'eval-expression 'disabled nil) |
655 (put 'eval-expression 'disabled nil) |
656 (put 'downcase-region 'disabled nil) |
656 (put 'downcase-region 'disabled nil) |