Merge pull request #264 from vermiculus/delete-command

Delete command

1 files changed, 4 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index 3bc6768..194e32f 100644
--- a/sx.el
+++ b/sx.el
@@ -346,6 +346,10 @@ GET-FUNC and performs the actual comparison."
   "Return STRING with consecutive whitespace squashed together."
   (replace-regexp-in-string "[ 	\r\n]+" " " string))
 
+(defun sx--deleted-p (data)
+  "Return non-nil if DATA represents a deleted object."
+  (eq (car data) 'deleted))
+
 (defun sx--invert-predicate (predicate)
   "Return PREDICATE function with arguments inverted.
 For instance (sx--invert-predicate #'<) is the same as #'>.