From d408866ff2a0de7af5d8bb40d9c1c310573f1800 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 4 Nov 2020 15:50:52 +0100 Subject: [PATCH] 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. --- admin/charsets/mule-charsets.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/admin/charsets/mule-charsets.el b/admin/charsets/mule-charsets.el index 8355af4488d..99a8c60d880 100644 --- a/admin/charsets/mule-charsets.el +++ b/admin/charsets/mule-charsets.el @@ -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)) -- 2.39.2