vine-default-faces.el 3.1 KB

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