;;; 不用意にterapadで保存すると\が¥に変換されてしまうので注意.
(set-language-environment "Japanese") (create-fontset-from-request "tt16" '((width . 8) ; フォントの幅(ピクセル) (height . 16) ; フォントの高さ(ピクセル) (weight . 400) ; フォントの太さ(通常400,ボールドで700) (fixed . t) ; tで等幅 (italic . nil)) ; tでイタリック '((family . "MS ゴシック") ; フォントファミリ (family . "Courier New"))) (setq default-frame-alist (append (list ;'(font . "tt16") ; フォントセット '(width . 80) ; 一行の字数 '(height . 59) ; 行数 '(left . 595) ; ディスプレイのX座標 '(top . 29) ; ディスプレイのY座標 '(background-color . "black") ; 背景の色 '(foreground-color . "white") ; 文字の色 '(cursor-color . "green") ; カーソルの色 ) default-frame-alist)) ; font-lockの設定 (if window-system (progn (setq font-lock-support-mode 'lazy-lock-mode) (global-font-lock-mode t))) (setq font-lock-support-mode '((emacs-lisp-mode . jit-lock-mode) ;; モードによって切りかえたい時 (c++-mode . fast-lock-mode) (t . jit-lock-mode))) ;; デフォルト ;;コメントの色 ;(set-face-foreground 'font-lock-comment-face "medium purple") ;;name の色 (set-face-foreground 'font-lock-function-name-face "LightSkyBlue") ;; Cygwinのbashを利用 (setq explicit-shell-file-name "C:/cygwin/bin/bash.exe") (setq shell-file-name "sh.exe") (setq shell-command-switch "-c") ;; argument-editing の設定 (require 'mw32script) (mw32script-init) (setq exec-suffix-list '(".exe" ".sh" ".pl")) (setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@`'.:()-") ;; SHELLで^Mが付く場合は^Mを削除 (add-hook 'shell-mode-hook (lambda () (set-buffer-process-coding-system 'undecided-dos 'sjis-unix))) ;; shell-modeでの補完 (for drive letter) (setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@`'.,:()-") ;;; SKK (setq skk-egg-like-newline t) ;; 変換時,改行でも確定 (setq skk-japanese-message-and-error t) ;; メッセージは日本語で (setq skk-auto-insert-paren t) ;;"「"を入力したら"」"も自動で挿入 (setq skk-check-okurigana-on-touroku t) ;;漢字登録のミスをチェックする (setq skk-kuten-touten-alist '((jp . ("。" . "、" )) (en . ("." . ",")))) (setq-default skk-kutouten-type 'en) (setq skk-number-style nil) ;; @で挿入する日付表示を半角に (setq skk-show-tooltip t) ;; 変換候補をツールチップに表示 (setq skk-show-inline t) ;; 変換候補をインラインに表示 (setq skk-isearch-start-mode 'latin) ;; isearch時にSKKをオフ (setq skk-henkan-face 'underline) (setq skk-auto-insert-paren nil) (setq skk-auto-okuri-process nil) (setq skk-date-ad t) ;自動日付入力の西暦化 (setq skk-dcomp-active t) (setq skk-large-jisyo nil) (setq skk-server-host "127.0.0.1" skk-portnum 1178) (setq skk-latin-mode-string "a") (setq skk-hiragana-mode-string "あ") (setq skk-katakana-mode-string "ア") (setq skk-jisx0208-latin-mode-string "a") ;; モード名を短くする (add-hook 'texinfo-mode-hook '(lambda () (setq mode-name "Texi"))) (add-hook 'lisp-interaction-mode-hook '(lambda () (setq mode-name "Lisp-Int"))) (add-hook 'emacs-lisp-mode-hook '(lambda () (setq mode-name "Elisp"))) (eval-after-load "encoded-kb" '(setcar (cdr (assq 'encoded-kbd-mode minor-mode-alist)) "")) (add-hook 'isearch-mode-hook '(lambda () (setcar (cdr (assq 'isearch-mode minor-mode-alist)) ""))) (setq display-time-string-forms '(month "/" day " " 24-hours ":" minutes)) (display-time) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; all lines below are derived from ~/.emacs of Linux box (su7d1) (setq load-path (cons (expand-file-name "~/elisp") load-path)) ;;; 編集モード設定 (setq default-major-mode 'indented-text-mode) ;(setq initial-major-mode 'indented-text-mode) (setq completion-ignored-extensions (append (list ".ps" ".gif" ".dvi" ".lzh" ".jpg" ".jpeg" ".gz" ".deb" ".zip" ".mid" ".mod" ".mp3" ".o" ".tar.gz" ".gz" ".tgz" ".pyc" ".pyo" ".a" ".tar.bz2" "bz2") (if (boundp 'completion-ignored-extensions) completion-ignored-extensions))) (setq next-line-add-newlines nil) ;C-nで新たな行をつくらない(nil) (setq track-eol t) (setq require-final-newline t) (line-number-mode 1) (column-number-mode 1) (setq scroll-step 1) (setq scroll-conservatively 1) (setq-default truncate-lines nil) ;行の折り返し表示 nil:する t:しない($) (setq transient-mark-mode 1);リージョンを色付きで (set-face-background 'region "blue") (setq make-backup-files nil);バックアップ(foo~)をつくらない (setq auto-save-default nil);.saves-...をつくらない (setq auto-save-list-file-name nil) (setq auto-save-list-file-prefix nil) (setq-default dired-listing-switches "-alF") (setq mouse-yank-at-point t) ;カーソル位置に貼り付け (tool-bar-mode nil) ;disable tool-bar (blink-cursor-mode 0) ;stop cursor blink (setq cursor-in-non-selected-windows nil); disable cursor of non-active window (setq frame-title-format (format "Meadow: %%f")) ;;; タイトルバーにファイル名を表示する ;;; キーバインド (global-set-key "\C-h" 'backward-delete-char) (global-set-key "\M-g" 'goto-line) (global-set-key "\M-n" 'expand-abbrev) (global-set-key "\C-x'" 'just-one-space) (global-set-key "\M- " 'dabbrev-expand) (global-set-key "\M-/" 'expand-abbrev) (eval-after-load "abbrev" '(global-set-key "\M-/" 'expand-abbrev)) (global-set-key [S-right] 'forward-word) (global-set-key [S-left] 'backward-word) (global-set-key [S-up] 'backward-paragraph) (global-set-key [S-down] 'forward-paragraph) (global-set-key [f11] 'call-last-kbd-macro) (global-set-key [f12] 'next-error) (setq inhibit-startup-message t) ; Don't Display Startup Message (setq initial-scratch-message nil) (iswitchb-default-keybindings) ; C-x b で buffers を選ぶ時便利 (resize-minibuffer-mode) (add-hook 'find-file-not-found-hooks 'new-file-p) ;;; new fileをopenする際,確認を求める (defun new-file-p () (interactive) (or (y-or-n-p (format "\"%s\": not found. Do you want to create new file?" buffer-file-name)) (keyboard-quit))) ;;; 書込時のフック (setq write-file-hooks '(lambda nil (trim-eob) (trim-buffer))) (defun trim-region (start end) "リージョン中の行末の無駄な空白を消去" (interactive "r") (save-excursion (save-restriction (narrow-to-region start end) (goto-char start) (replace-regexp "[ \t]+$" "")))) (defun trim-buffer nil "バッファ中の行末の無駄な空白を消去" (interactive) (save-excursion (mark-whole-buffer) (trim-region (region-beginning) (region-end)) )) (defun trim-eob nil "バッファの最後に溜った空行を消去" (interactive) (save-excursion (progn (goto-char (point-max)) (delete-blank-lines) nil)))
by edogawadai_bio
| 2006-05-14 23:30
| comp
|
カテゴリ
以前の記事
2009年 11月 2009年 04月 2009年 01月 2008年 12月 2008年 11月 2008年 09月 2008年 07月 2008年 05月 2008年 04月 2008年 03月 2007年 11月 2007年 09月 2007年 08月 2007年 07月 2007年 06月 2007年 04月 2007年 01月 2006年 12月 2006年 11月 2006年 10月 2006年 09月 2006年 08月 2006年 07月 2006年 05月 2006年 03月 2006年 02月 2006年 01月 2005年 12月 フォロー中のブログ
リンク
検索
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||