Use lexical-binding in mule-charsets.el

* admin/charsets/mule-charsets.el: Use lexical-binding.
(mule-charsets-header): Rename from 'header' to silence byte-compiler.
This commit is contained in:
Stefan Kangas 2020-11-04 15:50:52 +01:00
parent 2668bb47b0
commit d408866ff2

View file

@ -1,4 +1,4 @@
;; mule-charsets.el -- Generate Mule-original charset maps.
;; mule-charsets.el -- Generate Mule-original charset maps. -*- lexical-binding: t -*-
;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H13PRO009
@ -55,14 +55,14 @@
("MULE-lviscii.map" . vietnamese-viscii-lower)
("MULE-uviscii.map" . vietnamese-viscii-upper)))
(defconst header
(defconst mule-charsets-header
(format
"# Generated by running admin/charsets/mule-charsets.el in Emacs %d.%d.\n"
emacs-major-version emacs-minor-version))
(dolist (elt charset-alist)
(with-temp-buffer
(insert header)
(insert mule-charsets-header)
(map-charset-chars 'func (cdr elt) (cdr elt))
(sort-lines nil (point-min) (point-max))
(let ((coding-system-for-write 'unix))