1.1 --- a/yatexlib.el	Wed May 22 04:57:42 2002 +0000
     1.2 +++ b/yatexlib.el	Thu May 01 13:38:27 2003 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c )1994-2002 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Wed May 22 13:55:31 2002 on firestorm
     1.8 +;;; Last modified Wed Oct  2 23:35:33 2002 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -30,14 +30,16 @@
    1.13  (defvar YaTeX-kanji-code-alist
    1.14    (cond
    1.15     ((boundp '*junet*)
    1.16 -    (list (cons
    1.17 +    (list '(0 . *noconv*)
    1.18 +	  (cons
    1.19  	   1
    1.20  	   (if YaTeX-dos (if (boundp '*sjis-dos*) *sjis-dos* *sjis*dos)
    1.21  	     *sjis*))
    1.22  	  '(2 . *junet*) '(3 . *euc-japan*)))
    1.23     (YaTeX-emacs-20
    1.24      ;;(cdr-safe(assq 'coding-system (assoc "Japanese" language-info-alist)))
    1.25 -    (list (cons
    1.26 +    (list '(0 . no-conversion)
    1.27 +	  (cons
    1.28  	   1 (cond (YaTeX-dos 'shift_jis-dos)
    1.29  		   ((member 'shift_jis (coding-system-list)) 'shift_jis-unix)
    1.30  		   (t 'sjis)))
    1.31 @@ -724,7 +726,7 @@
    1.32    (cond
    1.33     ((and (string< "19" emacs-version) (not (featurep 'xemacs)))
    1.34      (insert-file-contents file visit beg end))
    1.35 -   ((string-match "unix" (symbol-name system-type))
    1.36 +   ((string-match "unix\\|linux" (symbol-name system-type))
    1.37      (let ((default-process-coding-system
    1.38  	    (and (boundp '*noconv*) (list '*noconv*)))
    1.39  	  (file-coding-system (and (boundp '*noconv*) '*noconv*))
    1.40 @@ -734,7 +736,7 @@
    1.41  		    (or (and (boundp 'shell-command-option)
    1.42  			     shell-command-option)
    1.43  			"-c")
    1.44 -		    (format "head -c %d | tail -c +%d" end beg))))
    1.45 +		    (format "dd bs=1 count=%d | tail -c +%d" end beg))))
    1.46      (t (insert-file-contents file))))
    1.47  
    1.48  (defun YaTeX-split-string (str &optional sep null)