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:
parent
2668bb47b0
commit
d408866ff2
1 changed files with 3 additions and 3 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue