# HG changeset patch
# User michaels
# Date 1063114639 0
# Node ID 3776a11151800c3861de24de0f433655a018f1a0
# Parent  9d167c4ea0476a0909c351cf9beb3e5f62aa0807
[xemacs-hg @ 2003-09-09 13:37:19 by michaels]
2003-09-06  Mike Sperber  <mike@xemacs.org>

	* bytecomp.el (byte-compile-defvar-or-defconst): Actually
	implement the specified semantics for `defvar.'

diff -r 9d167c4ea047 -r 3776a1115180 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 08 21:52:26 2003 +0000
+++ b/lisp/ChangeLog	Tue Sep 09 13:37:19 2003 +0000
@@ -1,3 +1,8 @@
+2003-09-06  Mike Sperber  <mike@xemacs.org>
+
+	* bytecomp.el (byte-compile-defvar-or-defconst): Actually
+	implement the specified semantics for `defvar.'
+
 2003-09-07  Adrian Aichner  <adrian@xemacs.org>
 
 	* window-xemacs.el (display-buffer): Fix for `shrink-to-fit' by
diff -r 9d167c4ea047 -r 3776a1115180 lisp/bytecomp.el
--- a/lisp/bytecomp.el	Mon Sep 08 21:52:26 2003 +0000
+++ b/lisp/bytecomp.el	Tue Sep 09 13:37:19 2003 +0000
@@ -3931,7 +3931,7 @@
 	      ;; `defconst' sets `var' unconditionally.
 	      `(setq ,var ,value)
 	    ;; `defvar' sets `var' only when unbound.
-	    `(if (not (boundp ',var)) (setq ,var ,value))))
+	    `(if (not (default-boundp ',var)) (set-default ',var ,value))))
       `',var))))
 
 (defun byte-compile-autoload (form)