emacs 中文乱码解决方案

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)