yatex

diff yatexlib.el @ 562:43508ed8bcc8

XEmacs needs 'coding-system-name before calling symbol-name
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 16 Jan 2019 08:23:20 +0900
parents e947b9ae31c2
children 4dad5f91b26c
line diff
     1.1 --- a/yatexlib.el	Thu Jan 03 12:26:23 2019 +0900
     1.2 +++ b/yatexlib.el	Wed Jan 16 08:23:20 2019 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*-
     1.5  ;;; 
     1.6  ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Thu Jan  3 12:23:22 2019 on firestorm
     1.8 +;;; Last modified Wed Jan 16 07:55:43 2019 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -130,7 +130,9 @@
    1.13      (let ((coding
    1.14  	   (cond
    1.15  	    ((boundp 'buffer-file-coding-system)
    1.16 -	     (symbol-name buffer-file-coding-system))
    1.17 +	     (symbol-name (if (fboundp 'coding-system-name)
    1.18 +			      (coding-system-name buffer-file-coding-system)
    1.19 +			    buffer-file-coding-system)))
    1.20  	    ((boundp 'file-coding-system) (symbol-name file-coding-system))))
    1.21  	  (case-fold-search t))
    1.22        (cond ((string-match "utf-8\\>" coding)			"utf8")