From 0b8a09dadb3f90303e7c77ac0e644bc393c00700 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 21 Feb 2015 15:29:53 -0200 Subject: Don't print deleted posts. --- sx.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'sx.el') diff --git a/sx.el b/sx.el index 33b36b6..9ad9744 100644 --- a/sx.el +++ b/sx.el @@ -335,6 +335,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)) + ;;; Printing request data (defvar sx--overlays nil -- cgit v1.2.3