message format spec fixes, commit # 10

diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 7e9e44210ef69600aa36723ff6359cd33d298e9d..0e0400bd68619e23051d5d92979eaba80c403284 100644 (file)
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -1532,7 +1532,7 @@ written into the buffer `*icalendar-errors*'."
          (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 --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 19191fd84b95247bbf77b100c5faadd4c96bbc1b..afa7b0e87d9fd974f770236d8ea4eaa3ded9dc05 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -441,7 +441,7 @@ worked today, ignoring the time worked on previous days."
                      "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 @@ See `timeclock-relative' for more information about the meaning of
                 (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 @@ non-nil, the amount returned will be relative to past time worked."
   (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 @@ relative only to the time worked today, and not to past time."
              (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: