Mercurial > hgrepos > hgweb.cgi > yatex
diff yatexlib.el @ 266:9d022a531549 dev
Set buffer-file-coding-system for write at tfb-and-exit.
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Wed, 29 Feb 2012 10:45:01 +0900 |
| parents | 15ec86ff549c |
| children | 5921f28ef77c |
line wrap: on
line diff
--- a/yatexlib.el Wed Feb 29 10:43:24 2012 +0900 +++ b/yatexlib.el Wed Feb 29 10:45:01 2012 +0900 @@ -2,7 +2,7 @@ ;;; YaTeX and yahtml common libraries, general functions and definitions ;;; yatexlib.el ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Feb 17 17:15:37 2012 on firestorm +;;; Last modified Wed Feb 29 09:49:30 2012 on firestorm ;;; $Id$ ;; General variables @@ -1568,7 +1568,15 @@ (lambda (arg) (find-file arg) (texinfo-format-buffer) - (basic-save-buffer))) + (cond + ((fboundp 'set-buffer-file-coding-system) + (set-buffer-file-coding-system 'sjis-dos)) + ((fboundp 'set-file-coding-system) + (set-file-coding-system '*sjis*dos)) + ((boundp 'NEMACS) + (set (make-local-variable 'kanji-fileio-code) 1))) + (let ((coding-system-for-write buffer-file-coding-system)) + (basic-save-buffer)))) command-line-args-left) (kill-emacs))))
