X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=d467d5432d27034c671d059e6bc339d6a2d49ad3;hp=c1cc824c7d2ed76f6cb71275cdc6531f3386a1cc;hb=79d2db7d65205bc85d471590726d0cf3af5598e0;hpb=de1ec4b272dfa3f9ef2c9ae28a9ba67170d24da5

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index c1cc824..d467d54 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1284,7 +1284,7 @@ otherwise pop it")
     (setq unreferenced (nreverse unreferenced))
     (while unreferenced
       (byte-compile-warn
-       (format "variable %s bound but not referenced" (car unreferenced)))
+       "variable %s bound but not referenced" (car unreferenced))
       (setq unreferenced (cdr unreferenced)))))
 
 
@@ -3869,7 +3869,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 	      ;; `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)