Mercurial > hg > xemacs-beta
changeset 1672:3776a1115180
[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 | 9d167c4ea047 |
| children | 9f8a8fc32b1b |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)