diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2023-10-25 12:03:40 -0400 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2023-10-25 12:03:40 -0400 |
| commit | 754615cae03212134c0caf6f641763819afdf8aa (patch) | |
| tree | 01c81e86b885c977ca19323dca49d9c9b6f80c8b | |
| parent | 6fc5507adc198861342d5986723118860d969372 (diff) | |
| download | emacsconf-el-754615cae03212134c0caf6f641763819afdf8aa.tar.xz emacsconf-el-754615cae03212134c0caf6f641763819afdf8aa.zip | |
Guard against null from-states when changing status
| -rw-r--r-- | emacsconf.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/emacsconf.el b/emacsconf.el index 5497c05..86e7251 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1566,7 +1566,8 @@ tracks with the ID in the cdr of that list." (defun emacsconf-update-talk-status (slug from-states to-state) (interactive (list (emacsconf-complete-talk) "." (completing-read "To: " (mapcar 'car emacsconf-status-types)))) (emacsconf-with-talk-heading slug - (when (string-match from-states (org-entry-get (point) "TODO")) + (when (or (null from-states) + (string-match from-states (org-entry-get (point) "TODO"))) (org-todo to-state) (save-buffer)))) |