From: kaoru <kaoru>
Date: Wed, 13 Apr 2011 08:48:26 +0000 (+0000)
Subject: * ptexinfmt.el: Use lexical binding.
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7f4eb868ba231a6d8a8354f3a9344f0266ce39fa;p=elisp%2Fwanderlust.git

* ptexinfmt.el: Use lexical binding.
(ptexinfmt-broken-facility): Rename _dummy argument.
(texinfo-enclosure-list, texinfo-alias-list): Add defvar stub for
lexical binding.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 6c41ade..e8e7c53 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,10 @@
+2011-04-13  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* ptexinfmt.el: Use lexical binding.
+	(ptexinfmt-broken-facility): Rename _dummy argument.
+	(texinfo-enclosure-list, texinfo-alias-list): Add defvar stub for
+	lexical binding.
+
 2010-09-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* ptexinfmt.el (texinfo-multitable-widths): Use `make-char'
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 4c3e9ec..d22ad8c 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -1,4 +1,4 @@
-;;; ptexinfmt.el -- portable Texinfo formatter.
+;;; ptexinfmt.el -- portable Texinfo formatter. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
 ;;               1994, 1995, 1996, 1997 Free Software Foundation, Inc.
@@ -69,7 +69,7 @@ This is last argument in `ptexinfmt-broken-facility'.")
 
 (put 'ptexinfmt-broken-facility 'lisp-indent-function 'defun)
 (defmacro ptexinfmt-broken-facility (facility docstring assertion
-					      &optional dummy)
+					      &optional _dummy)
   "Declare a symbol FACILITY is broken if ASSERTION is nil.
 DOCSTRING will be printed if ASSERTION is nil and
 `ptexinfmt-disable-broken-notice-flag' is nil."
@@ -129,6 +129,8 @@ DOCSTRING will be printed if ASSERTION is nil and
     t))
 
 ;; @var{METASYNTACTIC-VARIABLE}
+(defvar texinfo-enclosure-list)
+(defvar texinfo-alias-list)
 (ptexinfmt-broken-facility texinfo-format-var
   "Don't perse @var argument."
   (condition-case nil