# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1125053280 0
# Node ID 4377043d399d891f9fef5f9a0e35b0c2e3142e27
# Parent  d66de68f18cbe67039d4878a1e14d1e554916f4c
Move the `defvar's to the top level.

diff -r d66de68f18cb -r 4377043d399d lisp/info-xref.el
--- a/lisp/info-xref.el	Fri Aug 26 10:46:50 2005 +0000
+++ b/lisp/info-xref.el	Fri Aug 26 10:48:00 2005 +0000
@@ -138,27 +138,25 @@
 ;; Some dynamic variables are used to share information with sub-functions
 ;; below.
 ;;
-(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))
+;; 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."
diff -r d66de68f18cb -r 4377043d399d lisp/obsolete/bg-mouse.el
--- a/lisp/obsolete/bg-mouse.el	Fri Aug 26 10:46:50 2005 +0000
+++ b/lisp/obsolete/bg-mouse.el	Fri Aug 26 10:48:00 2005 +0000
@@ -50,11 +50,12 @@
 ;;; semicolon screws up indenting, so use this instead
 (defconst semicolon ?\;)
 
-(eval-when-compile
-  (defvar bg-mouse-x) (defvar bg-mouse-y) (defvar bg-cursor-window)
-  ;; This variable does not exist since 1991, so it's a safe bet
-  ;; this package is not really used anymore.  Still...
-  (defvar mouse-map))
+(defvar bg-mouse-x)
+(defvar bg-mouse-y)
+(defvar bg-cursor-window)
+;; This variable does not exist since 1991, so it's a safe bet
+;; this package is not really used anymore.  Still...
+(defvar mouse-map)
 
 ;;;  Defuns:
 
diff -r d66de68f18cb -r 4377043d399d lisp/obsolete/sun-curs.el
--- a/lisp/obsolete/sun-curs.el	Fri Aug 26 10:46:50 2005 +0000
+++ b/lisp/obsolete/sun-curs.el	Fri Aug 26 10:48:00 2005 +0000
@@ -32,11 +32,15 @@
 ;;;
 ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com>
 
-(eval-when-compile
-  (require 'cl)
-  (defvar *edit-icon*) (defvar char)
-  ;; These are from term/sun-mouse.el
-  (defvar *mouse-window*) (defvar *mouse-x*) (defvar *mouse-y*) (defvar menu))
+(eval-when-compile (require 'cl))
+
+(defvar *edit-icon*)
+(defvar char)
+;; These are from term/sun-mouse.el
+(defvar *mouse-window*)
+(defvar *mouse-x*)
+(defvar *mouse-y*)
+(defvar menu)
 
 (require 'sun-fns)
 
diff -r d66de68f18cb -r 4377043d399d lisp/obsolete/swedish.el
--- a/lisp/obsolete/swedish.el	Fri Aug 26 10:46:50 2005 +0000
+++ b/lisp/obsolete/swedish.el	Fri Aug 26 10:48:00 2005 +0000
@@ -33,10 +33,9 @@
 
 (require 'latin-1)
 
-(eval-when-compile
-  (defvar news-inews-hook)
-  (defvar news-group-hook-alist)
-  (defvar mail-send-hook))
+(defvar mail-send-hook)
+(defvar news-group-hook-alist)
+(defvar news-inews-hook)
 
 (defvar swedish-re
   "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]"