From b2623682e9ce5e12615f792cd63197c46db60e00 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 27 Nov 2014 14:19:24 -0500 Subject: Simplify form to use `remove' --- sx-auth.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/sx-auth.el b/sx-auth.el index b4ad633..b6c0411 100644 --- a/sx-auth.el +++ b/sx-auth.el @@ -154,14 +154,14 @@ If it has `auth-required' properties, return a filter that has removed those properties." (let* ((incl-filter (if (listp filter) (car filter))) (rest-filter (if incl-filter (cdr filter))) - (auth-filters (cl-remove-if #'null - ;; Only retrieve the elements that - ;; are issues. - (mapcar (lambda (prop) - (car - (member prop - sx-auth-filter-auth))) - (or incl-filter filter)))) + (auth-filters (remove nil + ;; Only retrieve the elements that + ;; are issues. + (mapcar (lambda (prop) + (car + (member prop + sx-auth-filter-auth))) + (or incl-filter filter)))) clean-filter out-filter) (lwarn "sx-auth filter" :debug "Filter: %S" filter) ;; Auth-filters is the filters that are issues -- cgit v1.2.3