emacsの設定: base.el

　
~/lib/conf/emacs/base.el

;;; 言語環境の指定
(set-language-environment "Japanese")

;;; 漢字コードの設定
(if (equal (getenv "LANG") "ja_JP.UTF-8")
    (progn
  (cond ((<= emacs-major-version 21)
     (require 'un-define)))
  (set-default-coding-systems 'utf-8)
  (set-buffer-file-coding-system 'utf-8-unix)
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8))
      ;;; 日本語メニューバー (UTF-8のメニューバーを用意?)
        ;(cond
        ;  (and (>= emacs-major-version 21)
        ;       (equal (substring (concat (getenv "LANG") "__") 0 2) "ja")
        ;     (load "menu-tree-utf8")))
  (progn
    (set-default-coding-systems 'euc-jp)
    (set-buffer-file-coding-system 'euc-jp-unix)
    (set-terminal-coding-system 'euc-jp)
    (set-keyboard-coding-system 'euc-jp)
    ;;; 日本語メニューバー
    ;(cond
    ;((and (>= emacs-major-version 21)
    ;(equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
    ;(load "menu-tree")))
    ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; rpm-mode
;;  RPM の spec ファイル作成用モード
;;  ~/lib/emacs に /usr/doc/rpm/rpm-mode.el をコピーして以下の設定を
;;  行ってください
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        ;(setq auto-mode-alist (nconc '(("\\.spec" . rpm-mode)) auto-mode-alist))
        ;(autoload 'rpm-mode "rpm-mode" "Major mode for editing SPEC file of RPM." t) 
        ;(setq packager "Vine User ");自分の名前
        ;      (setq buildrootroot "/var/tmp");BuildRootの場所
        ;      (setq projectoname "Project Vine");プロジェクト名 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; その他の設定
;;
;; これらの設定を変更する場合は、~/.emacs.my.el に書くこと
;; をお薦めします。etcskel パッケージのアップデート時に 
;; /etc/skel/.emacs.el をそのまま上書きできます。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; gzファイルも編集できるように
(auto-compression-mode t)

;;; 一行が 80 字以上になった時には自動改行する
        ;(setq fill-column 80)
        ;(setq text-mode-hook 'turn-on-auto-fill)
        ;(setq default-major-mode 'text-mode)

;;; ステータスラインに時間を表示する
;(if (or (and (>= emacs-major-version 20)
;             (not (equal (getenv "LANG") "ja_JP.UTF-8")))
;        (>= emacs-major-version 22))
;    (setq display-time-string-forms
;  '((format "%s.%s.%s (%s) %s:%s %s"
;    year month day dayname
;    24-hours minutes
;    load)))
;  )
;(display-time)

;;; 印刷設定
(setq-default lpr-switches '("-2P"))
        ;(setq-default lpr-switches '("-Pepson"))
(setq-default lpr-command "mpage")

;;; ps-print
(setq ps-multibyte-buffer 'non-latin-printer)
(if (>= emacs-major-version 21)
    (progn
      (require 'ps-mule)
      (defalias 'ps-mule-header-string-charsets 'ignore)))

;;; バッファの最後でnewlineで新規行を追加するのを禁止する
(setq next-line-add-newlines nil)

;;; 画面最下行で[↓]を押したときのスクロール数
        ;(setq scroll-step 1)
 
;;; 最終更新日の自動挿入
;;;   ファイルの先頭から 8 行以内に Time-stamp: <> または
;;;   Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
        ;(if (not (memq 'time-stamp write-file-hooks))
        ;    (setq write-file-hooks
        ;          (cons 'time-stamp write-file-hooks)))

;;; 張り付け時に，フォーマットを保存しない
(setq yank-excluded-properties t)

;;; 実行可能ファイルへのパスと環境変数の更新
(setq exec-path (cons "~/lib/bin/" exec-path))
(setenv "PATH" (concat "~/lib/bin/:" (getenv "PATH")))

>> emacsの設定