Re: font setup

[Taiji.Can@xxxxxxxxxxxxxxxxxxxxxxx]

  菅です。

> 呼びました??

  申し訳ないです。

>   これ、よぉく Error を読むと…
> 
>  (error "Fontset `private-fontset' matches the existing fontset
>  `private-fontset'")
> 
>   ですから、既に private-fontset がこれより前に定義してありませんか??

  ごめんなさい。back trace 取り方失敗しました。_o_
＃.emacs すでに読んであるのにもう一度読んでしまった・・・

  以下が本当です。

Signaling: (error "Font `private-fontset' is not defined")
  modify-frame-parameters(#<frame MEADOW95.EXE@SYRINX2 0x1be4300\ > ((font . "private-fontset")))
  set-frame-font("private-fontset")
  eval-buffer(#<buffer  *load*<2>> nil "_font-setup-050")
  load-with-code-conversion("c:/can/local-meadow/_font-setup-050.el" "_font-setup-050" nil nil)
  load("_font-setup-050")
  eval-buffer(#<buffer  *load*> nil "~/.emacs")
  load-with-code-conversion("c:/can/.emacs" "~/.emacs" nil nil)
  load("~/.emacs")
  eval((load "~/.emacs"))
  eval-expression((load "~/.emacs") nil)
* call-interactively(eval-expression)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

  一応、_font-setup-050.el もつけておきます。
＃手を入れてないので、同じだと思います。

;;
;; Font setting
(create-fontset-from-request "private-fontset"
			     '((width . 7)
			       (height . 15)
			       (fixed . t)
			       (italic . nil))
			     '(
			       (family . "Courier New")
			       ))

(change-fontset-from-request "private-fontset"
			     '((width . 7)
			       (height . 16)
			       (fixed . t)
			       (weight . 650)
			       (italic . nil))
			     '(
			       (family . "Courier New")
			       )
			     1)

(change-fontset-from-request "private-fontset"
			     '((width . 7)
			       (height . 15)
			       (fixed . t)
;;			       (weight . 650)
			       (italic . nil))
			     '(
			       (family . "Courier New")
			       )
			     2)

(change-fontset-from-request "private-fontset"
			     '((width . 7)
			       (height . 16)
			       (fixed . t)
			       (weight . 650)
			       (italic . nil))
			     '(
			       (family . "Courier New")
			       )
			     3)
;;
;; 12pt 日本語フォントの設定
(let ((font "Nihongo-12")
      (logfont 
       '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
      (logfonti
       '(w32-logfont "ＭＳ 明朝" 0 -12 400 0 nil nil nil 128 1 3 17)))
  (create-font-from-logfont-list
   font
   (list logfont
	 (w32-change-logfont-weight logfont 300)
	 logfonti
	 (w32-change-logfont-weight logfonti 300))
   4))
(set-fontset-font "private-fontset" 'katakana-jisx0201 "Nihongo-12")
(set-fontset-font "private-fontset" 'japanese-jisx0208 "Nihongo-12")
(set-fontset-font "private-fontset" 'latin-jisx0201 "Nihongo-12")
;;
;; BDF Fonts setting
(load "_bdffont")
(w32-configure-bdf-font "private-fontset")
;;
;; フレーム位置、高さ、フォント等の設定
(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(background-color . "gray70")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "navy")
		    '(width . 80)
		    '(height . 61)
		    '(top . 20)
		    '(left . 40)
		    '(line-space . "0")
		    '(ime-font . "Nihongo-12")
		    '(font . "private-fontset")
		    '(menu-bar-lines . 1))
	      default-frame-alist))
;;
;; Apply
(set-frame-font "private-fontset")
-- 

                                      ADVANTEST Corp.
                                      Taiji.Can@xxxxxxxxxxxxxxxxxxxxxxx