changeset 562:43508ed8bcc8 dev

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 bf4bdd7c4aae
files yatexlib.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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")