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))))
 

yatex.org