[debian-users:29302] Re: emacs20 で日本語が表示されない

["S. Ito" <sito@xxxxxxxxxxxxx>]

伊東です。

On Thu, 26 Jul 2001 19:49:58 +0900
Yukiharu Yabuki <yabuki@xxxxxxxxxxxxx> wrote:

Yukiharu> .emacsは、どうなっていますか。language-envか
Yukiharu> user-jaでつくったものですか？

.emacsはカラーモードとコンパイル等、キーバインドを研究室と
同じにしたかったのでコピーしてきました。user-jaとか使うと
自動で作成してくれるんですか？知らなかったので…。
以下に.emacsを付けますので、よろしくお願いいたします。

;;
;; .emacs
;;

;; enable dired-mode
(setenv "LANG" "C")

;; use double-n syntax
(setq enable-double-n-syntax t)

;; show line number
(setq line-number-mode t)

(setq next-line-add-newlines nil)
(setq inhibit-startup-message t)

;; set Meta-g goto-line
(global-set-key "\M-g" 'goto-line)

(put 'eval-expression 'disabled nil)
;; set window hilight
(cond (window-system
       (setq hilit-mode-enable-list
             '(not text-mode)
             hilit-background-mode      'light
             hilit-inhibit-hooks        nil
             hilit-inhibit-rebinding    nil)

       (require 'hilit19)
       (hilit-translate formula 'blue
;                       type 'bold
;                       include 'firebrick-italic
;                       comment 'purple
;                       define 'darkgreen
;                       string 'blue-underline
                        )

       ))


;; use meta-key
(setq meta-flag t)

;; always wrap at edge of window
(setq truncate-partial-width-windows t)

;; swap C-h and backsp
(load-library "term/bobcat")

(if (featurep 'xemacs)
;; for XEmacs
    (progn
      (select-input-method "japanese-egg-wnn")
      ))

(if (>= emacs-major-version 20)
    ;; for emacs version 20
    (progn
      (set-language-environment "Japanese")
      (set-default-coding-systems 'euc-jp)
      (set-buffer-file-coding-system 'euc-jp)
      (if (featurep 'xemacs)
	  ;; for XEmacs 20
	  (progn
	    (select-input-method "japanese-egg-wnn")
	    (inactivate-input-method)
	    )
	;; for fsf-emacs 20
	(progn
	  (set-terminal-coding-system 'euc-jp)
	  )
	)
      ;; for fsf-emacs 20 & Xemacs 20
      )
  ;; for fsf-emacs version 19 (maybe mule)
  (progn
    )
  )


(autoload 'recompile "compile" "quick compile" t)
(setq compile-command "make ")
(define-prefix-command 'Control-Z-prefix)
(global-set-key '"\C-z"    'Control-Z-prefix)
(global-set-key '"\C-z\C-c"  'compile)
(global-set-key '"\C-z\C-z"  'recompile)
(global-set-key '"\C-z\C-n"  'next-error)
(global-set-key '"\C-z\C-p"  'previous-error)
(global-set-key '"\C-z\C-s"  'shell-command)
;(global-set-key '"\C-\M-/" 'complete-tag)
;(global-set-key (quote [-67108817]) (quote complete-tag))




;; C-mode
(setq c-indent-level 4)
(setq c-continued-statement-offset 4)
(setq c-label-offset -2)
(setq c-brace-offset 0)
(setq c-auto-newline t)
(setq c-tab-always-indent t)
(defun c-begin-comment-box ()
    "コメントの始まりを挿入"
    (interactive)
    (insert "/****************************************************\n")
    )

(defun c-end-comment-box ()
    "コメントの終りを挿入"
    (interactive)
    (insert "****************************************************/\n")
    )

(add-hook 'c-mode-hook
  '(lambda ()
     (define-key c-mode-map "\C-cb" 'c-begin-comment-box)
     (define-key c-mode-map "\C-ce" 'c-end-comment-box)
   )
)


-- 
S.Ito <sito@xxxxxxxxxxxxx>