emacs 中文乱码解决方案
;;通过在.emacs中设置字体解决了emacs字体颠倒的问题
;;首先设置环境变量HOME，使其指向一个特定的目录
;;在这个目录下建立.emacs文件，使其内容如本文所示
;; Are we running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)
(cond ((not running-xemacs)
(set-foreground-color "Navy")
(set-background-color "Grey")
(set-cursor-color "black")
(set-default-font "-*-Fixedsys-*-*-*-*-*-*-*-*-*-*-fontset-default")
(set-language-environment 'Chinese-GB)
(set-terminal-coding-system 'euc-cn)
(set-keyboard-coding-system 'cn-gb-2312-unix)
))
(cond (running-xemacs
))
;; Always end a file with a newline
(setq require-final-newline t)
;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)
(global-set-key (quote [f4]) (quote set-mark-command))
(global-set-key (quote [f3]) (quote goto-line))
(defun my-c-mode-common-hook ()
;; add my personal style and set it for the current buffer
(c-set-style "k&r")
;; offset customizations not in my-c-style
(c-set-offset 'member-init-intro '++)
;; other customizations
(setq tab-width 4
;; this will make sure spaces are used instead of tabs
indent-tabs-mode nil)
;; we like auto-newline and hungry-delete
(c-toggle-auto-hungry-state 1)
(font-lock-mode 2)
;; keybindings for all supported languages. We can put these in
;; c-mode-base-map because c-mode-map, c++-mode-map, objc-mode-map,
;; java-mode-map, and idl-mode-map inherit from it.
(define-key c-mode-base-map "\C-m" 'newline-and-indent)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
