X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=f5be73dcfb9e614e14fca8962a045844dbef86ea;hb=87fd0820140086837f95cb416a7747b04020e8f5;hp=cf62f7caeffe26ead94d34e12f46ccf6b09f9039;hpb=d0e07e9cc4a67494b89f54a73d23443e8789676b;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index cf62f7c..f5be73d 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)))))
 
 
@@ -3921,7 +3921,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)