Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 594:638284a7a9d0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[TEST] Prefer 'undicided to 'no-conversion
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 29 Sep 2022 10:00:57 +0900
parents 0a96c5fef8f1
children 38a414d755c1
comparison
equal deleted inserted replaced
593:0a96c5fef8f1 594:638284a7a9d0
1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2022 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2022 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Thu Sep 29 09:45:03 2022 on firestorm 4 ;;; Last modified Thu Sep 29 09:56:02 2022 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
37 ;; ((boundp 'NEMACS) 37 ;; ((boundp 'NEMACS)
38 ;; (cdr (assq (if YaTeX-dos 1 2) YaTeX-kanji-code-alist)))) 38 ;; (cdr (assq (if YaTeX-dos 1 2) YaTeX-kanji-code-alist))))
39 (cond 39 (cond
40 (YaTeX-dos (cdr (assq 1 YaTeX-kanji-code-alist))) 40 (YaTeX-dos (cdr (assq 1 YaTeX-kanji-code-alist)))
41 (YaTeX-emacs-20 41 (YaTeX-emacs-20
42 (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist))) 42 (let ((sym (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist))))
43 (if (eq sym 'no-conversion) 'undecided sym)))
43 ((boundp 'MULE) 44 ((boundp 'MULE)
44 (symbol-value 45 (symbol-value
45 (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist)))) 46 (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist))))
46 ((boundp 'NEMACS) 47 ((boundp 'NEMACS)
47 latex-message-kanji-code)) 48 latex-message-kanji-code))

yatex.org