diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-12-04 07:27:16 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-12-04 07:27:16 -0500 |
| commit | 226dd026b6371270c7250d32df1f61426800e78c (patch) | |
| tree | 4654404ae6a12d5222e14f7a070d6b4048e05627 | |
| parent | be88092b6803645b8299b1bf195cf39995d7f114 (diff) | |
| download | emacsconf-el-226dd026b6371270c7250d32df1f61426800e78c.tar.xz emacsconf-el-226dd026b6371270c7250d32df1f61426800e78c.zip | |
don't require force
| -rw-r--r-- | emacsconf-schedule.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index bcfc561..5bfed57 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -287,7 +287,7 @@ Pairs with `emacsconf-schedule-dump-sexp'." (emacsconf-filter-talks info)) (setq emacsconf-schedule-draft nil)))) -(defun emacsconf-schedule-save-emailed-times (info &optional field force) +(defun emacsconf-schedule-save-emailed-times (info &optional field) (interactive (list (or emacsconf-schedule-draft (emacsconf-get-talk-info)) nil current-prefix-arg)) (setq field (or field "EMAILED_SCHEDULE")) @@ -295,8 +295,7 @@ Pairs with `emacsconf-schedule-dump-sexp'." (save-excursion (mapc (lambda (talk) (emacsconf-go-to-talk (plist-get talk :slug)) - (when (and (plist-get talk :scheduled) - (or force (null (org-entry-get (point) field)))) + (when (plist-get talk :scheduled) (org-entry-put (point) field (replace-regexp-in-string "[<>]" "" (plist-get talk :scheduled))))) |