branch: externals/excorporate
commit 11cd8ec6e084a329c977862c22cc86efc278a439
Author: Thomas Fitzsimmons <[email protected]>
Commit: Thomas Fitzsimmons <[email protected]>
Fix some whitespace.
* excorporate.el (exco-operation-arity-nils): Fix whitespace.
(exco-calendar-item-meeting-create): Likewise.
(exco-calendar-item-appointment-create): Likewise.
---
excorporate.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/excorporate.el b/excorporate.el
index 788333e40d..a4b590aa46 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -759,8 +759,8 @@ Return a structure, or nil, suitable for splicing into
"Return a list of nil arguments for OPERATION.
IDENTIFIER is the connection for which to look up OPERATION."
(let* ((wsdl (exco--with-fsm identifier
- (plist-get (fsm-get-state-data fsm) :service-wsdl)))
- (arity (soap-operation-arity wsdl "ExchangeServicePort" operation)))
+ (plist-get (fsm-get-state-data fsm) :service-wsdl)))
+ (arity (soap-operation-arity wsdl "ExchangeServicePort" operation)))
(make-list arity nil)))
(defun exco-calendar-item-meeting-create (identifier
@@ -791,9 +791,9 @@ creation."
(Subject . ,subject)
(Body (BodyType . "Text") ,body)
(StartTimeZone (Id . ,(exco-time-zone)))
- (Start . ,(exco-format-date-time start))
- (End . ,(exco-format-date-time end))
- (Location . ,location)
+ (Start . ,(exco-format-date-time start))
+ (End . ,(exco-format-date-time end))
+ (Location . ,location)
,@(exco--create-attendee-structure main-invitees t)
,@(exco--create-attendee-structure optional-invitees nil))))
;; Empty arguments.
@@ -867,11 +867,11 @@ appointment creation."
`(((SendMeetingInvitations . "SendToNone")
(Items
(CalendarItem
- (Subject . ,subject)
+ (Subject . ,subject)
(Body (BodyType . "Text") ,body)
(StartTimeZone (Id . ,(exco-time-zone)))
- (Start . ,(exco-format-date-time start))
- (End . ,(exco-format-date-time end)))))
+ (Start . ,(exco-format-date-time start))
+ (End . ,(exco-format-date-time end)))))
nil nil nil nil)
callback))
