diff options
author | Sean Allred <code@seanallred.com> | 2014-11-27 14:23:14 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-27 14:23:14 -0500 |
commit | b3bfa272a9e27f0e87c0a815520221ef1dbf789f (patch) | |
tree | 54867a156b4557d472fd0fb0bbef681122c4d023 /sx-auth.el | |
parent | de0f242552610ed2dcca537bd9843c4d798bfc8f (diff) | |
parent | b2623682e9ce5e12615f792cd63197c46db60e00 (diff) |
Merge pull request #116 from vermiculus/hotfix
Hotfixes
Diffstat (limited to 'sx-auth.el')
-rw-r--r-- | sx-auth.el | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -28,7 +28,7 @@ (defconst sx-auth-root "https://stackexchange.com/oauth/dialog") (defconst sx-auth-redirect-uri - "http://vermiculus.github.io/stack-mode/auth/auth.htm") + "http://vermiculus.github.io/sx.el/auth/auth.htm") (defconst sx-auth-client-id "3291") (defvar sx-auth-access-token @@ -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 #'nil - ;; 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 |