memo/20041108

created 2004-11-08 modified 2004-11-08 

今日の.emacs

;; for PuTTY
(if (string-match "euc"
                 (let ((e process-environment))
                   (while (not (string-match "LANG=" (car e)))
                     (setq e (cdr e)) )
                   (car e)))
   (progn
     (setq default-file-name-coding-system 'euc-jp)
     (set-terminal-coding-system 'euc-jp) )
 (progn
   (setq default-file-name-coding-system 'utf-8)
   (set-terminal-coding-system 'utf-8) ) )