From: bg66 <bg66>
Date: Mon, 19 May 2003 00:39:55 +0000 (+0000)
Subject: * lisp/initz.el (initz-message): Protect 1st arg of `message'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=991928518278ecc83a625fb54bd26cc147062bbf;p=elisp%2Finitz.git

* lisp/initz.el (initz-message): Protect 1st arg of `message'.
---

diff --git a/ChangeLog b/ChangeLog
index 2c474a8..8bdeefd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-18  OHASHI Akira  <bg66@koka-in.org>
+
+	* lisp/initz.el (initz-message): Protect 1st arg of `message'.
+
 2002-09-01  OHASHI Akira  <bg66@koka-in.org>
 
 	* lisp/initz-util.el (initz-add-to-load-path): Expand `path' before
diff --git a/lisp/initz.el b/lisp/initz.el
index 156d461..5922dc0 100644
--- a/lisp/initz.el
+++ b/lisp/initz.el
@@ -57,7 +57,7 @@ If ARG is specified, don't display code name."
 
 (defun initz-message (mesg)
   "If `initz-verbose' is non-nil, print MESG."
-  (when initz-verbose (message mesg)))
+  (when initz-verbose (message "%s" mesg)))
 
 (defmacro initz-message-no-log (string &rest args)
   "Like `message', except that message logging is disabled."