From 6083cc020cb99ba4f619c3caec8914693a8424da Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sun, 16 Aug 2015 01:51:48 -0700 Subject: [PATCH] ... --- dotfiles/emacs.d/init.el | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 799f6662..27a1647b 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -182,25 +182,16 @@ `(flet ((message (&rest r) nil)) ,@forms)) -(defun cmp-int-list (a b) +(defun imalison:compare-int-list (a b) (when (and a b) (cond ((> (car a) (car b)) 1) ((< (car a) (car b)) -1) - (t (cmp-int-list (cdr a) (cdr b)))))) + (t (imalison:compare-int-list (cdr a) (cdr b)))))) (defun get-date-created-from-agenda-entry (agenda-entry) (org-time-string-to-time (org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED"))) -(defun narrow-to-region-indirect (start end) - "Restrict editing in this buffer to the current region, indirectly." - (interactive "r") - (deactivate-mark) - (let ((buf (clone-indirect-buffer nil nil))) - (with-current-buffer buf - (narrow-to-region start end)) - (switch-to-buffer buf))) - (defmacro defvar-setq (name value) (if (boundp name) `(setq ,name ,value) @@ -810,7 +801,7 @@ The current directory is assumed to be the project's root otherwise." (defun org-cmp-creation-times (a b) (let ((a-created (get-date-created-from-agenda-entry a)) (b-created (get-date-created-from-agenda-entry b))) - (cmp-int-list a-created b-created))) + (imalison:compare-int-list a-created b-created))) (defun org-agenda-done (&optional arg) "Mark current TODO as done.