diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-06-07 02:37:56 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-06-07 02:37:56 +0000 |
| commit | 0d56ae89189104b81cac90f39e72f174e37af5b9 (patch) | |
| tree | 7e7cff71380e7fe0857dbfc781b19808e49d984e | |
| parent | 1a32899de36b245916e553a7fda8ab37fea6fc1e (diff) | |
| download | emacs-0d56ae89189104b81cac90f39e72f174e37af5b9.tar.gz | |
Remove unnecessary eval-when-compile.
| -rw-r--r-- | lisp/progmodes/etags.el | 5 | ||||
| -rw-r--r-- | lisp/textmodes/page-ext.el | 12 |
2 files changed, 8 insertions, 9 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 7aea6158f26..4e4fdd63abf 100644 --- 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 762bebb07a2..ddc61440238 100644 --- 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. |