From 9ca3e5932be2ce3261a911be112df35b4af7e49a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 24 Aug 2005 14:00:17 +0000 Subject: [PATCH] (info-xref-xfile-alist, info-xref-filename-heading, info-xref-good, info-xref-bad): Defvar at compile time. --- lisp/info-xref.el | 34 +++++++++++++++++++++------------- 1 file changed, 21 insertions(+), 13 deletions(-) diff --git a/lisp/info-xref.el b/lisp/info-xref.el index 79dec8419a1..1a9b196a764 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el @@ -138,19 +138,27 @@ should open up the purported top file and see what subfiles it says." ;; Some dynamic variables are used to share information with sub-functions ;; below. ;; -;; info-xref-filename - current top-level filename, eg. /usr/info/foo.info.gz -;; -;; info-xref-filename-header - a heading message for the current top-level -;; filename, or "" when it's been printed. -;; -;; info-xref-good - count of good cross references. -;; -;; info-xref-bad - count of bad cross references. -;; -;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according -;; to whether "(foo)" exists or not. This is used to suppress duplicate -;; messages about foo not being available. (Duplicates within one -;; top-level file that is.) +(eval-when-compile + ;; + ;; info-xref-filename-header - a heading message for the current top-level + ;; filename, or "" when it's been printed. + ;; + (defvar info-xref-xfile-alist) + ;; + ;; info-xref-good - count of good cross references. + ;; + (defvar info-xref-good) + ;; + ;; info-xref-bad - count of bad cross references. + ;; + (defvar info-xref-bad) + ;; + ;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according + ;; to whether "(foo)" exists or not. This is used to suppress duplicate + ;; messages about foo not being available. (Duplicates within one + ;; top-level file that is.) + ;; + (defvar info-xref-filename-heading)) (defun info-xref-check-list (filename-list) "Check external references in info documents in FILENAME-LIST." -- 2.39.2