diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 14:00:17 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 14:00:17 +0000 |
| commit | 116017adaa5501f3165773e8121378e8f8c47323 (patch) | |
| tree | d1d1c422e09d45adfff2632565cbb0a250b6e6c1 /lisp/info-xref.el | |
| parent | 22b1e4b0e008450933b843e57dbd82dfb992db40 (diff) | |
| download | emacs-116017adaa5501f3165773e8121378e8f8c47323.tar.gz | |
(info-xref-xfile-alist, info-xref-filename-heading, info-xref-good,
info-xref-bad): Defvar at compile time.
Diffstat (limited to 'lisp/info-xref.el')
| -rw-r--r-- | lisp/info-xref.el | 34 |
1 files 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." |