Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 266:9d022a531549 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
265:0b10d1fea265 266:9d022a531549
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX and yahtml common libraries, general functions and definitions 2 ;;; YaTeX and yahtml common libraries, general functions and definitions
3 ;;; yatexlib.el 3 ;;; yatexlib.el
4 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Fri Feb 17 17:15:37 2012 on firestorm 5 ;;; Last modified Wed Feb 29 09:49:30 2012 on firestorm
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;; General variables 8 ;; General variables
9 (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2))) 9 (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2)))
10 (defvar YaTeX-macos (memq system-type '(darwin))) 10 (defvar YaTeX-macos (memq system-type '(darwin)))
1566 (set-language-environment "Japanese")) 1566 (set-language-environment "Japanese"))
1567 (mapcar (function 1567 (mapcar (function
1568 (lambda (arg) 1568 (lambda (arg)
1569 (find-file arg) 1569 (find-file arg)
1570 (texinfo-format-buffer) 1570 (texinfo-format-buffer)
1571 (basic-save-buffer))) 1571 (cond
1572 ((fboundp 'set-buffer-file-coding-system)
1573 (set-buffer-file-coding-system 'sjis-dos))
1574 ((fboundp 'set-file-coding-system)
1575 (set-file-coding-system '*sjis*dos))
1576 ((boundp 'NEMACS)
1577 (set (make-local-variable 'kanji-fileio-code) 1)))
1578 (let ((coding-system-for-write buffer-file-coding-system))
1579 (basic-save-buffer))))
1572 command-line-args-left) 1580 command-line-args-left)
1573 (kill-emacs)))) 1581 (kill-emacs))))
1574 1582
1575 (provide 'yatexlib) 1583 (provide 'yatexlib)
1576 ; Local variables: 1584 ; Local variables:

yatex.org