diff options
author | David Thompson <dthompson2@worcester.edu> | 2019-01-30 11:04:01 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2019-01-30 11:04:01 -0500 |
commit | 8dc62550ce4220aca473b9e377e8c9c9cd340881 (patch) | |
tree | 03c27634d55e0f42e9f15c8bc51153db9a8e3b1d /dotfiles/.emacs.d/init.el | |
parent | d4080c9428ae9b792ec9b4c5e778bdbbd7240031 (diff) |
Update some stuff that was sitting on my laptop.
Diffstat (limited to 'dotfiles/.emacs.d/init.el')
-rw-r--r-- | dotfiles/.emacs.d/init.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el index 6311ecd..822961c 100644 --- a/dotfiles/.emacs.d/init.el +++ b/dotfiles/.emacs.d/init.el @@ -356,8 +356,14 @@ indentation." (defun org-sort-by-priority-and-todo () "Sort org entries first by priority, and then by TODO status." (interactive) - (org-sort-entries nil ?p) - (org-sort-entries nil ?o)) + (push-mark) + (push-mark (point-max) nil t) + (lexical-let ((p (point))) + (goto-char (point-min)) + (org-sort-entries nil ?p) + (org-sort-entries nil ?o) + (goto-char p)) + (pop-mark)) (add-hook 'org-mode-hook (lambda () |