Commit 80070cca authored by Deepak Goel's avatar Deepak Goel
Browse files

message format spec fixes, commit # 10

parent 55aed120
......@@ -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*"))
......
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment