mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-31 09:20:54 -08:00
c7bc28bf03
From a patch privately suggested by Mattias Engdegård on 2020-05-11 in a followup to Bug#40671. * admin/charsets/cp51932.awk: * admin/charsets/eucjp-ms.awk: Generate code that does not modify constant conses. * doc/misc/emacs-mime.texi (Encoding Customization): * lisp/emacs-lisp/byte-opt.el (byte-compile-side-effect-free-ops): * lisp/frameset.el (frameset-persistent-filter-alist): * lisp/gnus/gnus-sum.el (gnus-article-mode-line-format-alist): Use append instead of nconc. * lisp/language/japanese.el (japanese-ucs-cp932-to-jis-map) (jisx0213-to-unicode): Use mapcar instead of mapc. * lisp/language/lao-util.el (lao-transcription-consonant-alist) (lao-transcription-vowel-alist): * lisp/language/tibetan.el (tibetan-subjoined-transcription-alist): Use copy-sequence. * test/src/fns-tests.el (fns-tests-nreverse): (fns-tests-sort, fns-tests-collate-sort) (fns-tests-string-version-lessp, fns-tests-mapcan): Use copy-sequence, vector, and list.
58 lines
2 KiB
Awk
58 lines
2 KiB
Awk
# cp51932.awk -- Generate a translation table for CP51932.
|
|
# Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
|
|
# National Institute of Advanced Industrial Science and Technology (AIST)
|
|
# Registration Number H13PRO009
|
|
|
|
# This file is part of GNU Emacs.
|
|
|
|
# GNU Emacs is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
|
|
# GNU Emacs is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
# Commentary:
|
|
|
|
# Generate a translation table for CP51932 (EUC-JP of MicroSoft Version).
|
|
# It maps invalid JISX0208 code points used by CP51932 to Unicode.
|
|
# 4th field of the input has these meanings:
|
|
# 0: JISX0208 characters.
|
|
# 1: NEC special characters.
|
|
# 2: IBM extension characters.
|
|
# 3: NEC selection of IBM extension characters.
|
|
# Among them, 1 and 3 are the target characters. 2 should have
|
|
# already been mapped to 1 or 3.
|
|
|
|
BEGIN {
|
|
print ";;; cp51932.el -- translation table for CP51932";
|
|
print ";;; Automatically generated from CP932-2BYTE.map";
|
|
print "(let ((map";
|
|
printf " '(;JISEXT<->UNICODE";
|
|
}
|
|
|
|
/# [13]/ {
|
|
printf "\n (#x%s . #x%s)", $5 ,substr($2, 3, 4);
|
|
}
|
|
|
|
END {
|
|
print ")))";
|
|
print " (setq map (mapcar (lambda (x)";
|
|
print " (cons (decode-char 'japanese-jisx0208 (car x))";
|
|
print " (cdr x)))";
|
|
print " map))";
|
|
print " (define-translation-table 'cp51932-decode map)";
|
|
print " (mapc (lambda (x)";
|
|
print " (let ((tmp (car x)))";
|
|
print " (setcar x (cdr x)) (setcdr x tmp)))";
|
|
print " map)";
|
|
print " (define-translation-table 'cp51932-encode map))";
|
|
print "";
|
|
print "(provide 'cp51932)";
|
|
}
|