# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1547594600 -32400
# Node ID 43508ed8bcc87c4cab2bb90bc909cabad0dd23dc
# Parent  e947b9ae31c29e989dc20672b0b278bf0fd4f9f1
XEmacs needs 'coding-system-name before calling symbol-name

diff -r e947b9ae31c2 -r 43508ed8bcc8 yatexlib.el
--- a/yatexlib.el	Thu Jan 03 12:26:23 2019 +0900
+++ b/yatexlib.el	Wed Jan 16 08:23:20 2019 +0900
@@ -1,7 +1,7 @@
 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*-
 ;;; 
 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Jan  3 12:23:22 2019 on firestorm
+;;; Last modified Wed Jan 16 07:55:43 2019 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -130,7 +130,9 @@
     (let ((coding
 	   (cond
 	    ((boundp 'buffer-file-coding-system)
-	     (symbol-name buffer-file-coding-system))
+	     (symbol-name (if (fboundp 'coding-system-name)
+			      (coding-system-name buffer-file-coding-system)
+			    buffer-file-coding-system)))
 	    ((boundp 'file-coding-system) (symbol-name file-coding-system))))
 	  (case-fold-search t))
       (cond ((string-match "utf-8\\>" coding)			"utf8")