diff options
author | Sean Allred <code@seanallred.com> | 2014-11-29 09:36:59 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-29 09:36:59 -0500 |
commit | f5ca9c6d7629817569c3bd58e5569fee88cd5f2b (patch) | |
tree | bcbbdcb2e2fdc91f9431d3b3ad605aa0a7fa0bde /sx-auth.el | |
parent | a8e882d99a037075595260dc74fad0fb67c69d81 (diff) | |
parent | 00a187f5bb7dc08117965eae05df51d0eedac90e (diff) |
Merge branch 'master' into issue-100
Conflicts:
sx-question-mode.el
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 |