From 6b837ca538576d97c30af8091a2ebbc2691ddaff Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Tue, 23 Dec 2014 23:33:19 -0200 Subject: get-questions accepts a submethod argument --- sx-question.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'sx-question.el') diff --git a/sx-question.el b/sx-question.el index 3fcc438..a890d37 100644 --- a/sx-question.el +++ b/sx-question.el @@ -26,7 +26,7 @@ (require 'sx-filter) (require 'sx-method) -(defun sx-question-get-questions (site &optional page keywords) +(defun sx-question-get-questions (site &optional page keywords submethod) "Get SITE questions. Return page PAGE (the first if nil). Return a list of question. Each question is an alist of properties returned by the API with an added (site SITE) @@ -39,6 +39,7 @@ KEYWORDS are added to the method call along with PAGE. :keywords `((page . ,page) ,@keywords) :site site :auth t + :submethod submethod :filter sx-browse-filter)) (defun sx-question-get-question (site question-id) -- cgit v1.2.3 From 00ccd139248e782cd8316eff65c26aed838c7e46 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 29 Dec 2014 18:44:20 -0200 Subject: Don't barf if read-question cdr is not a date --- sx-question.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'sx-question.el') diff --git a/sx-question.el b/sx-question.el index 03ebb4b..5ce5d7f 100644 --- a/sx-question.el +++ b/sx-question.el @@ -118,7 +118,8 @@ See `sx-question--user-read-list'." ;; Question already present. ((setq cell (assoc .question_id site-cell)) ;; Current version is newer than cached version. - (when (> .last_activity_date (cdr cell)) + (when (or (not (numberp (cdr cell))) + (> .last_activity_date (cdr cell))) (setcdr cell .last_activity_date))) ;; Question wasn't present. (t -- cgit v1.2.3