Mercurial > hg > xemacs-beta

diff lisp/bytecomp.el @ 1672:3776a1115180

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.'
author michaels
date Tue, 09 Sep 2003 13:37:19 +0000
parents 5365af805d4c
children 701dcae521bd
line wrap: on
line diff
--- 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)