Remove unnecessary eval-when-compile.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 7aea6158f26816aebedcf08ad2537a164d11d1c6..4e4fdd63abf6304023a34cb0beb16802a589716f 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -825,9 +825,8 @@ The functions using this are `find-tag-noselect',
 (defvar find-tag-history nil) ; Doc string?
 
 ;; Dynamic bondage:
-(eval-when-compile
-  (defvar etags-case-fold-search)
-  (defvar etags-syntax-table))
+(defvar etags-case-fold-search)
+(defvar etags-syntax-table)
 
 ;;;###autoload
 (defun find-tag-noselect (tagname &optional next-p regexp-p)

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 762bebb07a290cfbea8cb624e2b897628b2c3777..ddc61440238e1c2d0e709da23ebf26c1a371c768 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -1,7 +1,7 @@
 ;;; page-ext.el --- extended page handling commands
 
-;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008  Free Software Foundation, Inc.
 
 ;; Maintainer: Robert J. Chassell <bob@gnu.org>
 ;; Keywords: wp data
@@ -640,10 +640,10 @@ directory for only the accessible portion of the buffer."
     (forward-line (if (= 0 pages-buffer-original-page)
                       1
                     pages-buffer-original-page))))
-(eval-when-compile
-  (defvar pages-buffer-original-position)
-  (defvar pages-buffer-original-page)
-  (defvar pages-buffer-original-page))
+
+(defvar pages-buffer-original-position)
+(defvar pages-buffer-original-page)
+(defvar pages-buffer-original-page)
 
 (defun pages-copy-header-and-position (count-lines-p)
   "Copy page header and its position to the Pages Directory.