「なんかmeadowの調子が悪いなぁ」と思ったのがきっかけです。
http://www.meadowy.org/meadow/ を見ると、ここ数年更新がなく、win vistaでは動作が不安定らしいので、meadow→NTEmacsに移行してみました。
http://ntemacsjp.sourceforge.jp/matsuan/IndexJp.html
http://sourceforge.jp/projects/ntemacsjp/
今のところ、特に問題なく動作しています。
また、現状の .emacs も紹介しておきます。
(cond ((string-match "21.*" emacs-version) (load-file "~/.emacs.meadow")) ((string-match "22.*" emacs-version) (load-file "~/.emacs.ntemacs")) )
;参考command ;M-x query-replace-regexp ;正規表現による文字列の置換 ;M-x set-buffer-file-coding-system ;文字+改行コードの変更 ;M-x untabify ;タブ->スペース ;M-x tabify ;スペース->タブ ;M-= ;文字数,行数をカウント ;C-x RET c euc-jp-unix C-x C-f ;文字コードを指定してfileを開く ;M-x print-buffer ;バッファの印刷 ;M-x upcase-region, M-x downcase-region ;大文字<->小文字 ;M-x perltidy-region ;C-/ ;undo ;C-. ;バッファをワシワシ切り替え ;M-x japanese-hankaku-region ;全角->半角 変換 ;M-/ ;動的略語展開 ;C-x ' ;静的略語展開(define ~/.abbrev_defs) (global-set-key "\C-x\C-b" 'bs-show) ;C-xC-bをM-x bs-showに変更 (global-set-key [M-kanji] 'ignore) ;M-kanjiとうるさいので... (define-key esc-map " " 'expand-abbrev) ;静的略語展開は M-SPCに変更 ;; window sizeや色 (fixed-width-set-fontset "msgothic" 14) (setq default-frame-alist (append (list '(foreground-color . "black") '(background-color . "LemonChiffon") '(width . 81) '(height . 55) '(top . 0) '(left . 50)) default-frame-alist)) (setq resize-mini-windows nil) ;ミニバッファ拡大防止 (set-face-foreground 'fringe "black") ;fringe色 (set-face-background 'fringe "LemonChiffon3") ;fringe色 (show-paren-mode 1) (setq-default make-backup-files nil) ;BackUp File (setq auto-save-default nil) ;自動保存 (global-set-key "\C-h" 'backward-delete-char) ;C-h でBackSpace (menu-bar-mode t) ;menu bar表示 (tool-bar-mode nil) ;tool bar表示 (setq line-number-mode t) ;行番号表示 (setq column-number-mode 1) ;列番号表示 ;;全角空白、タブ文字、行末空白の表示 ;; http://homepage1.nifty.com/blankspace/emacs/color.html (defface my-face-b-1 '((t (:background "bisque"))) nil) (defface my-face-b-2 '((t (:background "LemonChiffon2"))) nil) (defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil) (defvar my-face-b-1 'my-face-b-1) (defvar my-face-b-2 'my-face-b-2) (defvar my-face-u-1 'my-face-u-1) (defadvice font-lock-mode (before my-font-lock-mode ()) (font-lock-add-keywords major-mode '((" " 0 my-face-b-1 append) ("\t" 0 my-face-b-2 append) ("[ \t]+$" 0 my-face-u-1 append) ))) (ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) (ad-activate 'font-lock-mode) ;;keisen.el Shift+矢印で簡単に罫線を描画 (global-set-key [S-right] 'keisen-right-move ) (global-set-key [S-left] 'keisen-left-move ) (global-set-key [S-up] 'keisen-up-move ) (global-set-key [S-down] 'keisen-down-move ) (autoload 'keisen-up-move "keisen" nil t) (autoload 'keisen-down-move "keisen" nil t) (autoload 'keisen-left-move "keisen" nil t) (autoload 'keisen-right-move "keisen" nil t) ;(put 'upcase-region 'disabled nil) ;(put 'downcase-region 'disabled nil) ;;cperl-mode (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) (setq auto-mode-alist (append '(("\\.\\([pP][Llm]\\|al\\|cgi\\|t\\)$" . cperl-mode)) auto-mode-alist )) (add-hook 'cperl-mode-hook (lambda () (setq cperl-font-lock t) (cperl-set-style "PerlStyle"))) ;;html-helper-mode (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t) (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist)) (add-hook 'html-helper-load-hook '(lambda () (require 'html-font))) ;; js2-mode (autoload 'js2-mode "js2" nil t) (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) ;;yaml-mode (require 'yaml-mode) (add-to-list 'auto-mode-alist '("\\.\\(yaml\\|yml\\)$" . yaml-mode)) ;;c-modeのコーディングスタイル ;(setq c-default-style "linux") ;;インデントはタブにする ;(setq indent-tabs-mode t) ;;インデント幅 ;(setq c-basic-offset 4) ;;タブ幅 ;(setq default-tab-width 4) ;(setq tab-width 4)
|