# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057362468 0
# Node ID 10cd0bec4a7f43fd5a008f4c9e0f9a4590171d41
# Parent  3c7354593959e5b83f4bb1af88dbd1da12a42d8c
(byte-compile-defvar): Check and set the default value of the variable.
(byte-code-meter): Move declaration to top level.

diff -r 3c7354593959 -r 10cd0bec4a7f lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Jul 04 23:30:29 2003 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Jul 04 23:47:48 2003 +0000
@@ -1,6 +1,6 @@
 ;;; bytecomp.el --- compilation of Lisp code into byte code
 
-;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002
+;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002, 2003
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.133 $")
+(defconst byte-compile-version "$Revision: 2.134 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -3614,7 +3614,7 @@
 		`(funcall '(lambda (,tmp) (defconst ,var ,tmp))
 			  ,value))
 	    ;; `defvar' sets `var' only when unbound.
-	    `(if (not (boundp ',var)) (setq ,var ,value)))
+	    `(if (not (default-boundp ',var)) (setq-default ,var ,value)))
 	(when (eq fun 'defconst)
 	  ;; This will signal an appropriate error at runtime.
 	  `(eval ',form)))
@@ -3984,8 +3984,8 @@
 
 ;;; report metering (see the hacks in bytecode.c)
 
+(defvar byte-code-meter)
 (defun byte-compile-report-ops ()
-  (defvar byte-code-meter)
   (with-output-to-temp-buffer "*Meter*"
     (set-buffer "*Meter*")
     (let ((i 0) n op off)