Move the `defvar's to the top level.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88c099f68da0c29c0704d9e9b8aa2ec37b6b5dae..3fae8c6e91f1d5c031d2bbb9de01d71ff3729143 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,13 @@
 
 2005-08-26  Juanma Barranquero  <lekktu@gmail.com>
 
+       * emerge.el:
+       * ibuffer.el:
+       * info-xref.el:
+       * obsolete/bg-mouse.el:
+       * obsolete/sun-curs.el:
+       * obsolete/swedish.el: Move the `defvar's to the top level.
+
        * smerge-mode.el (smerge-refined-change): Add :group.
 
 2005-08-25  Stefan Monnier  <monnier@iro.umontreal.ca>
@@ -10185,7 +10192,7 @@
 
 2005-01-21  Ren\e,Ai\e(B Kyllingstad  <listmailxemacs@kyllingstad.com>
 
-       * pcomplete.el: define pcomplete-read-event instead of read-event,
+       * pcomplete.el: Define pcomplete-read-event instead of read-event,
        since it's not a complete read-event implementation
 
 2005-01-20  Jay Belanger  <belanger@truman.edu>

diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index 1a9b196a764b49df2f8facf9965483a8512df882..18d64cf0a1c1ddef2f3544b1e3929d289ccd1b15 100644 (file)
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -138,27 +138,25 @@ 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.
 ;;
-(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 --git a/lisp/obsolete/bg-mouse.el b/lisp/obsolete/bg-mouse.el
index 7bb378c544ee76ff8996760e629ce208cfdb170e..687619a051b77519d9ff45439975170dee7f5f5b 100644 (file)
--- a/lisp/obsolete/bg-mouse.el
+++ b/lisp/obsolete/bg-mouse.el
@@ -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 --git a/lisp/obsolete/sun-curs.el b/lisp/obsolete/sun-curs.el
index de372fe68364757795f8c898a9feef570a4789e8..769d4de868fcdbdf011e9e6788eccbf018468c1f 100644 (file)
--- a/lisp/obsolete/sun-curs.el
+++ b/lisp/obsolete/sun-curs.el
@@ -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 --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el
index 5e1794705a92adc51d32fb0b79a1135702b7d1f6..65e109ec8b48f68c9879b3bc4a0fdab9e7f26199 100644 (file)
--- a/lisp/obsolete/swedish.el
+++ b/lisp/obsolete/swedish.el
@@ -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.,?!:;'\")}]"