# HG changeset patch
# User Deepak Goel <deego@gnufans.org>
# Date 1127047299 0
# Node ID a65f8ec418fc3d6dc6672a4220d142ce2b86fcca
# Parent  c45ae2a74f0f7c6b90017c29e25745fce56aa211
message format spec fixes, commit # 10

diff -r c45ae2a74f0f -r a65f8ec418fc lisp/calendar/icalendar.el
--- a/lisp/calendar/icalendar.el	Sun Sep 18 12:40:26 2005 +0000
+++ b/lisp/calendar/icalendar.el	Sun Sep 18 12:41:39 2005 +0000
@@ -1532,7 +1532,7 @@
          (setq found-error t)
          (setq error-string (format "%s\n%s\nCannot handle this event: %s"
                                     error-val error-string e))
-         (message error-string))))
+         (message "%s" error-string))))
     (if found-error
         (save-current-buffer
           (set-buffer (get-buffer-create "*icalendar-errors*"))
diff -r c45ae2a74f0f -r a65f8ec418fc lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Sun Sep 18 12:40:26 2005 +0000
+++ b/lisp/calendar/timeclock.el	Sun Sep 18 12:41:39 2005 +0000
@@ -441,7 +441,7 @@
 		      "remaining" "over")
 		  (timeclock-when-to-leave-string show-seconds today-only)))
     (if (interactive-p)
-	(message status)
+	(message "%s" status)
       status)))
 
 ;;;###autoload
@@ -512,7 +512,7 @@
 		 (timeclock-workday-remaining today-only)
 		 show-seconds t)))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 (defsubst timeclock-workday-elapsed ()
@@ -534,7 +534,7 @@
   (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
 					     show-seconds)))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 (defsubst timeclock-time-to-seconds (time)
@@ -579,7 +579,7 @@
 	      (format-time-string "%-I:%M:%S %p" then)
 	    (format-time-string "%-I:%M %p" then))))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 ;;; Internal Functions: