From da5ae89315f2571c6b68a81db1b75c22d203c613 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 22 Feb 2016 21:46:08 -0500
Subject: Add org-agenda-set-restriction-lock variant

---
 lisp/km-org.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp')

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
 
-- 
cgit v1.2.3