.emacs-my
changeset 863 d48ba6196046
parent 862 6b956999856b
child 864 adacfc97125b
equal deleted inserted replaced
862:6b956999856b 863:d48ba6196046
   430             (vector (make-glyph-code ?\\ 'escape-glyph)
   430             (vector (make-glyph-code ?\\ 'escape-glyph)
   431                     (make-glyph-code ?x 'escape-glyph)
   431                     (make-glyph-code ?x 'escape-glyph)
   432                     (make-glyph-code hi 'escape-glyph)
   432                     (make-glyph-code hi 'escape-glyph)
   433                     (make-glyph-code low 'escape-glyph)))
   433                     (make-glyph-code low 'escape-glyph)))
   434       (setq i (+ i 1))))
   434       (setq i (+ i 1))))
       
   435   )
       
   436 
       
   437 (when (>= emacs-major-version 23)
       
   438   (define-key global-map "\C-x8g" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "HRYVNIA SIGN" (ucs-names) t)))))
       
   439   (define-key global-map "\C-x8e" (lambda nil (interactive) (ucs-insert `,(cdr (assoc-string "EURO SIGN" (ucs-names) t)))))
   435   )
   440   )
   436 
   441 
   437 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes.
   442 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes.
   438 (setq generic-define-mswindows-modes t)
   443 (setq generic-define-mswindows-modes t)
   439 (setq generic-define-unix-modes t)
   444 (setq generic-define-unix-modes t)