* 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 (file)
--- 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 (file)
--- 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