diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-02-22 21:46:08 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-02-22 21:46:08 -0500 |
| commit | da5ae89315f2571c6b68a81db1b75c22d203c613 (patch) | |
| tree | 85ac2ce55263c9a060dafab21790d5750989ab98 /lisp/km-org.el | |
| parent | 627fb5c27515ea0b1950251475550fe175b8ca00 (diff) | |
| download | emacs.d-da5ae89315f2571c6b68a81db1b75c22d203c613.tar.gz | |
Add org-agenda-set-restriction-lock variant
Diffstat (limited to 'lisp/km-org.el')
| -rw-r--r-- | lisp/km-org.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/km-org.el b/lisp/km-org.el index 74f7eb7..7f4d5da 100644 --- a/lisp/km-org.el +++ b/lisp/km-org.el @@ -370,6 +370,15 @@ displayed in the agenda." (interactive) (org-agenda-archive-with #'km/org-delete-subtree)) +;;;###autoload +(defun km/org-agenda-set-restriction-lock (&optional type) + "Call `org-agenda-set-restriction-lock' with flipped C-u meaning." + (interactive "P") + (org-agenda-set-restriction-lock + (cond ((equal type '(4)) nil) + (type) + (t '(4))))) + ;;; Refiling |