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

diff --git a/ChangeLog b/ChangeLog
index 2c474a8..8bdeefd 100644 (file)
--- 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 (file)
--- 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."