source: projects/specs/trunk/e/emacs24/vine-default-faces.el @ 2293

Revision 2293, 3.1 KB checked in by munepi, 12 years ago (diff)

update: emacs22-22.3, emacs-23.2; NEW: emacs24-24.0.50: applied new vine-default system

Line 
1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;;  -*- coding: utf-8-unix -*-
3;;  FSF Emacs 24 用 Vine Linux フォント/カラー設定
4;;    Munehiro Yamamoto <munepi@vinelinux.org>
5;;      $Id: vine-default-faces.el,v 1.11 2009/07/25 14:04:04 munepi Exp $     
6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7
8;; (if (and window-system
9;;       (string-match "^23\." emacs-version))
10;;     (progn
11;;       (setq desktop-gnome-interface-monospace-font-name
12;;          (replace-regexp-in-string "\n" ""
13;;              (shell-command-to-string
14;;                 "bash -c \'gconftool-2 --get /desktop/gnome/interface/monospace_font_name 2> /dev/null\'")))
15;;       (if (null desktop-gnome-interface-monospace-font-name)
16;;        (setq desktop-gnome-interface-monospace-font-name "Monospace 10"));; default
17
18;;       (set-frame-font desktop-gnome-interface-monospace-font-name)
19
20;;       (unless (assoc 'font default-frame-alist)
21;;      (add-to-list 'default-frame-alist
22;;                   '(font . desktop-gnome-interface-monospace-font-name))
23;;      (setcdr (assoc 'font default-frame-alist)
24;;              desktop-gnome-interface-monospace-font-name))
25
26;;       ;; (set-fontset-font (frame-parameter nil 'font)
27;;       ;;                     'japanese-jisx0208
28;;       ;;                     '("VLゴシック regular" . "iso10646-1"))
29;;       ;; (set-fontset-font (frame-parameter nil 'font)
30;;       ;;                     'katakana-jisx0201
31;;       ;;                     '("VLゴシック regular" . "iso10646-1"))
32;;       ;; (set-fontset-font (frame-parameter nil 'font)
33;;       ;;                     'japanese-jisx0213-1
34;;       ;;                     '("VLゴシック regular" . "iso10646-1"))
35;;       ;; (set-fontset-font (frame-parameter nil 'font)
36;;       ;;                     'japanese-jisx0213-2
37;;       ;;                     '("VLゴシック regular" . "iso10646-1"))
38;;       )
39;;   )
40
41(if (string-match "^22\." emacs-version)
42  (progn
43    (utf-translate-cjk-mode t)
44    (utf-translate-cjk-set-unicode-range
45     '((#x00a2 . #x00a3)                    ; ¢, £
46       (#x00a7 . #x00a8)                    ; §, ¨
47       (#x00ac . #x00ac)                    ; ¬
48       (#x00b0 . #x00b1)                    ; °, ±
49       (#x00b4 . #x00b4)                    ; ´
50       (#x00b6 . #x00b6)                    ; ¶
51       (#x00d7 . #x00d7)                    ; ×
52       (#X00f7 . #x00f7)                    ; ÷
53       (#x0370 . #x03ff)                    ; Greek and Coptic
54       (#x0400 . #x04FF)                    ; Cyrillic
55       (#x2000 . #x206F)                    ; General Punctuation
56       (#x2100 . #x214F)                    ; Letterlike Symbols
57       (#x2190 . #x21FF)                    ; Arrows
58       (#x2200 . #x22FF)                    ; Mathematical Operators
59       (#x2300 . #x23FF)                    ; Miscellaneous Technical
60       (#x2500 . #x257F)                    ; Box Drawing
61       (#x25A0 . #x25FF)                    ; Geometric Shapes
62       (#x2600 . #x26FF)                    ; Miscellaneous Symbols
63       (#x2e80 . #xd7a3) (#xff00 . #xffef)))
64    )
65  )
66
67;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
68
69(provide 'vine-default-faces)
70
71;; Local Variables:
72;; mode: emacs-lisp
73;; End:
Note: See TracBrowser for help on using the repository browser.