changeset 93097:bb437302d206

* textmodes/refbib.el: * textmodes/reftex.el: * textmodes/reftex-global.el: * textmodes/reftex-vars.el: * textmodes/reftex-toc.el: Don't use eval-and-compile for byte compiler pacifying defvars. (reftex-toc-mode): Only make zmacs-regions local on XEmacs. * textmodes/reftex-index.el (zmacs-regions): Remove pacifier, not needed.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 20 Mar 2008 07:44:16 +0000
parents ea3c318451b4
children 531ffecceb32
files lisp/textmodes/refbib.el lisp/textmodes/reftex-global.el lisp/textmodes/reftex-index.el lisp/textmodes/reftex-toc.el lisp/textmodes/reftex-vars.el lisp/textmodes/reftex.el
diffstat 6 files changed, 24 insertions(+), 28 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/refbib.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/refbib.el	Thu Mar 20 07:44:16 2008 +0000
@@ -223,17 +223,16 @@
 
 (defvar r2b-error-found nil)
 
-(eval-when-compile
-  (defvar r2b-variables) (defvar r2bv-address)    (defvar r2bv-annote)
-  (defvar r2bv-author)   (defvar r2bv-booktitle)  (defvar r2bv-date)
-  (defvar r2bv-decade)   (defvar r2bv-editor)     (defvar r2bv-entry-kind)
-  (defvar r2bv-institution) (defvar r2bv-journal) (defvar r2bv-keywords)
-  (defvar r2bv-kn)       (defvar r2bv-month)      (defvar r2bv-note)
-  (defvar r2bv-number)   (defvar r2bv-ordering)   (defvar r2bv-organization)
-  (defvar r2bv-pages)    (defvar r2bv-primary-author) (defvar r2bv-publisher)
-  (defvar r2bv-school)   (defvar r2bv-title)      (defvar r2bv-title-first-word)
-  (defvar r2bv-tr)       (defvar r2bv-type)       (defvar r2bv-volume)
-  (defvar r2bv-where)    (defvar r2bv-year))
+(defvar r2b-variables) (defvar r2bv-address)    (defvar r2bv-annote)
+(defvar r2bv-author)   (defvar r2bv-booktitle)  (defvar r2bv-date)
+(defvar r2bv-decade)   (defvar r2bv-editor)     (defvar r2bv-entry-kind)
+(defvar r2bv-institution) (defvar r2bv-journal) (defvar r2bv-keywords)
+(defvar r2bv-kn)       (defvar r2bv-month)      (defvar r2bv-note)
+(defvar r2bv-number)   (defvar r2bv-ordering)   (defvar r2bv-organization)
+(defvar r2bv-pages)    (defvar r2bv-primary-author) (defvar r2bv-publisher)
+(defvar r2bv-school)   (defvar r2bv-title)      (defvar r2bv-title-first-word)
+(defvar r2bv-tr)       (defvar r2bv-type)       (defvar r2bv-volume)
+(defvar r2bv-where)    (defvar r2bv-year)
 
 (setq r2b-variables '(
                       r2b-error-found
--- a/lisp/textmodes/reftex-global.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/reftex-global.el	Thu Mar 20 07:44:16 2008 +0000
@@ -102,9 +102,8 @@
     (tags-query-replace from to (or delimited current-prefix-arg)
                         (list 'reftex-all-document-files))))
 
-(eval-when-compile
-  (defvar TeX-master)
-  (defvar isearch-next-buffer-function))
+(defvar TeX-master)
+(defvar isearch-next-buffer-function)
 
 (defun reftex-find-duplicate-labels ()
   "Produce a list of all duplicate labels in the document."
--- a/lisp/textmodes/reftex-index.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/reftex-index.el	Thu Mar 20 07:44:16 2008 +0000
@@ -35,7 +35,6 @@
 
 ;; START remove for XEmacs release
 (defvar mark-active)
-(defvar zmacs-regions)
 (defvar transient-mark-mode)
 (defvar TeX-master)
 ;; END remove for XEmacs release
--- a/lisp/textmodes/reftex-toc.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/reftex-toc.el	Thu Mar 20 07:44:16 2008 +0000
@@ -36,7 +36,6 @@
   "Keymap used for *toc* buffer.")
 
 (defvar reftex-toc-menu)
-(eval-when-compile (defvar zmacs-regions))
 (defvar reftex-last-window-height nil)
 (defvar reftex-last-window-width nil)
 (defvar reftex-toc-include-labels-indicator nil)
@@ -57,7 +56,8 @@
         mode-name "TOC")
   (use-local-map reftex-toc-map)
   (set (make-local-variable 'transient-mark-mode) t)
-  (set (make-local-variable 'zmacs-regions) t)
+  (when (featurep 'xemacs)
+    (set (make-local-variable 'zmacs-regions) t))
   (set (make-local-variable 'revert-buffer-function) 'reftex-toc-revert)
   (set (make-local-variable 'reftex-toc-include-labels-indicator) "")
   (set (make-local-variable 'reftex-toc-max-level-indicator)
--- a/lisp/textmodes/reftex-vars.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/reftex-vars.el	Thu Mar 20 07:44:16 2008 +0000
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;;; Code:
-(eval-when-compile (defvar reftex-tables-dirty))
+(defvar reftex-tables-dirty)
 (eval-when-compile (require 'cl))
 (eval-and-compile
   (defun reftex-set-dirty (symbol value)
--- a/lisp/textmodes/reftex.el	Thu Mar 20 06:38:35 2008 +0000
+++ b/lisp/textmodes/reftex.el	Thu Mar 20 07:44:16 2008 +0000
@@ -613,16 +613,15 @@
 ;;; =========================================================================
 ;;;
 ;;; Silence warnings about variables in other packages.
-(eval-when-compile
-  (defvar TeX-master)
-  (defvar LaTeX-section-hook)
-  (defvar LaTeX-label-function)
-  (defvar tex-main-file)
-  (defvar outline-minor-mode)
-  (defvar font-lock-mode)
-  (defvar font-lock-keywords)
-  (defvar font-lock-fontify-region-function)
-  (defvar font-lock-syntactic-keywords))
+(defvar TeX-master)
+(defvar LaTeX-section-hook)
+(defvar LaTeX-label-function)
+(defvar tex-main-file)
+(defvar outline-minor-mode)
+(defvar font-lock-mode)
+(defvar font-lock-keywords)
+(defvar font-lock-fontify-region-function)
+(defvar font-lock-syntactic-keywords)
 
 ;;; =========================================================================
 ;;;