Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
80070cca
Commit
80070cca
authored
Sep 18, 2005
by
Deepak Goel
Browse files
message format spec fixes, commit # 10
parent
55aed120
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
lisp/calendar/icalendar.el
lisp/calendar/icalendar.el
+1
-1
lisp/calendar/timeclock.el
lisp/calendar/timeclock.el
+4
-4
No files found.
lisp/calendar/icalendar.el
View file @
80070cca
...
...
@@ -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*"
))
...
...
lisp/calendar/timeclock.el
View file @
80070cca
...
...
@@ -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:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment