colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Fix org-todo-at-date by using flet instead of cl-flet

Browse Source
This commit is contained in:
Ivan Malison 2023-09-10 11:23:29 -06:00
parent 86c7d63048
commit 5309dc48f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/emacs.d/org-config.org
View File

@ -172,7 +172,7 @@ We're going to use this to write separate parts of our config to different secti
(defun org-todo-at-date (date) (defun org-todo-at-date (date)
(interactive (list (org-time-string-to-time (org-read-date)))) (interactive (list (org-time-string-to-time (org-read-date))))
(cl-flet ((org-current-effective-time (&rest r) date) (flet ((org-current-effective-time (&rest r) date)
(org-today (&rest r) (time-to-days date))) (org-today (&rest r) (time-to-days date)))
(cond ((eq major-mode 'org-mode) (org-todo)) (cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo))))) ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))