Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 529:b742adfa30e2 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UTF-8 mnemonic for command line option changed as s/utf-8/utf8/
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 23 May 2018 08:02:11 +0900
parents b1896ef49747
children e947b9ae31c2
comparison
equal deleted inserted replaced
528:523f54775325 529:b742adfa30e2
1 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*- 1 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Sun Jan 21 16:29:01 2018 on firestorm 4 ;;; Last modified Wed May 23 07:59:08 2018 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 8
9 ;; High-precedence compatible function 9 ;; High-precedence compatible function
131 (cond 131 (cond
132 ((boundp 'buffer-file-coding-system) 132 ((boundp 'buffer-file-coding-system)
133 (symbol-name buffer-file-coding-system)) 133 (symbol-name buffer-file-coding-system))
134 ((boundp 'file-coding-system) (symbol-name file-coding-system)))) 134 ((boundp 'file-coding-system) (symbol-name file-coding-system))))
135 (case-fold-search t)) 135 (case-fold-search t))
136 (cond ((string-match "utf-8\\>" coding) "utf-8") 136 (cond ((string-match "utf-8\\>" coding) "utf8")
137 ((string-match "shift.jis\\|cp932\\>" coding) "sjis") 137 ((string-match "shift.jis\\|cp932\\>" coding) "sjis")
138 ((string-match "junet\\|iso.2022" coding) "jis") 138 ((string-match "junet\\|iso.2022" coding) "jis")
139 ((string-match "euc.jp\\|ja.*iso.8bit" coding) "euc") 139 ((string-match "euc.jp\\|ja.*iso.8bit" coding) "euc")
140 (t ""))))) 140 (t "")))))
141 141

yatex.org