Mercurial > hgrepos > hgweb.cgi > yatex
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")