[Emacs-diffs] Changes to emacs/lisp/calendar/timeclock.el

[D . Goel]

Index: emacs/lisp/calendar/timeclock.el
diff -c emacs/lisp/calendar/timeclock.el:1.32 
emacs/lisp/calendar/timeclock.el:1.33
*** emacs/lisp/calendar/timeclock.el:1.32       Mon Jul  4 17:37:04 2005
--- emacs/lisp/calendar/timeclock.el    Sun Sep 18 12:41:39 2005
***************
*** 441,447 ****
                      "remaining" "over")
                  (timeclock-when-to-leave-string show-seconds today-only)))
      (if (interactive-p)
!       (message status)
        status)))
  
  ;;;###autoload
--- 441,447 ----
                      "remaining" "over")
                  (timeclock-when-to-leave-string show-seconds today-only)))
      (if (interactive-p)
!       (message "%s" status)
        status)))
  
  ;;;###autoload
***************
*** 512,518 ****
                 (timeclock-workday-remaining today-only)
                 show-seconds t)))
      (if (interactive-p)
!       (message string)
        string)))
  
  (defsubst timeclock-workday-elapsed ()
--- 512,518 ----
                 (timeclock-workday-remaining today-only)
                 show-seconds t)))
      (if (interactive-p)
!       (message "%s" string)
        string)))
  
  (defsubst timeclock-workday-elapsed ()
***************
*** 534,540 ****
    (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
                                             show-seconds)))
      (if (interactive-p)
!       (message string)
        string)))
  
  (defsubst timeclock-time-to-seconds (time)
--- 534,540 ----
    (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
                                             show-seconds)))
      (if (interactive-p)
!       (message "%s" string)
        string)))
  
  (defsubst timeclock-time-to-seconds (time)
***************
*** 579,585 ****
              (format-time-string "%-I:%M:%S %p" then)
            (format-time-string "%-I:%M %p" then))))
      (if (interactive-p)
!       (message string)
        string)))
  
  ;;; Internal Functions:
--- 579,585 ----
              (format-time-string "%-I:%M:%S %p" then)
            (format-time-string "%-I:%M %p" then))))
      (if (interactive-p)
!       (message "%s" string)
        string)))
  
  ;;; Internal Functions: