diff options
| author | Sacha Chua <sacha@sachachua.com> | 2021-11-13 01:25:14 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2021-11-13 01:25:14 -0500 |
| commit | 64121d8e65eb71358e3eb68c4a4700f459c73814 (patch) | |
| tree | 0a8bf5e5cf0a5c01962056819ccf24143d1aaafe | |
| parent | ed5b0d0410085384651124b1438b6a70d29bbc92 (diff) | |
| download | emacsconf-el-64121d8e65eb71358e3eb68c4a4700f459c73814.tar.xz emacsconf-el-64121d8e65eb71358e3eb68c4a4700f459c73814.zip | |
Fix event
| -rw-r--r-- | emacsconf-update.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacsconf-update.el b/emacsconf-update.el index 55c29c7..7d0ef00 100644 --- a/emacsconf-update.el +++ b/emacsconf-update.el @@ -101,12 +101,12 @@ (defun emacsconf-update--update-entry (event zone-map) "Update the current Org heading to match EVENT. Use ZONE-MAP for timestamp decoding." - (let* ((dtstart-time (emacsconf-update--get-time-from-event e 'DTSTART zone-map)) - (dtend-time (emacsconf-update--get-time-from-event e 'DTEND zone-map))) + (let* ((dtstart-time (emacsconf-update--get-time-from-event event 'DTSTART zone-map)) + (dtend-time (emacsconf-update--get-time-from-event event 'DTEND zone-map))) (org-back-to-heading) (when (looking-at org-complex-heading-regexp) (replace-match (icalendar--convert-string-for-import - (icalendar--get-event-property e 'SUMMARY)) + (icalendar--get-event-property event 'SUMMARY)) t t nil 4)) (org-end-of-meta-data) (when (re-search-forward (concat "Tentative schedule: " org-ts-regexp "--" org-ts-regexp " *\n") |