]> git.eshelyaron.com Git - emacs.git/commitdiff
Use lexical-binding in mule-charsets.el
authorStefan Kangas <stefan@marxist.se>
Wed, 4 Nov 2020 14:50:52 +0000 (15:50 +0100)
committerStefan Kangas <stefan@marxist.se>
Wed, 4 Nov 2020 14:50:52 +0000 (15:50 +0100)
* admin/charsets/mule-charsets.el: Use lexical-binding.
(mule-charsets-header): Rename from 'header' to silence byte-compiler.

admin/charsets/mule-charsets.el

index 8355af4488d5bf4e02b3e09a8a3f85645329e360..99a8c60d880d706025e51249a39bdbb62f3cbb7e 100644 (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
     ("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))