From cd263806abe865b91e8705538c4405a8ca87669f Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 13 Dec 2014 21:31:05 -0800 Subject: [PATCH] There was a built in (org-time-string-to-time) that does what org-date-time-to-internal-time does. --- dotfiles/emacs.d/init.el | 5 ----- 1 file changed, 5 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 0bc0303d..bdd7f056 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -655,11 +655,6 @@ The current directory is assumed to be the project's root otherwise." (org-insert-todo-heading nil) (org-make-habit)) - (defun org-date-time-to-internal-time (org-date) - `(,@(apply 'encode-time - (mapcar (lambda (elem) (if elem elem 0)) - (subseq (parse-time-string org-date) 0 6))) 0 0)) - (defun org-todo-at-date (date) (interactive (list (org-time-string-to-time (org-read-date)))) (flet ((org-current-effective-time (&rest r) date))