aboutsummaryrefslogtreecommitdiff
path: root/sx-auth.el
diff options
context:
space:
mode:
authorSean Allred <code@seanallred.com>2014-11-29 09:36:59 -0500
committerSean Allred <code@seanallred.com>2014-11-29 09:36:59 -0500
commitf5ca9c6d7629817569c3bd58e5569fee88cd5f2b (patch)
treebcbbdcb2e2fdc91f9431d3b3ad605aa0a7fa0bde /sx-auth.el
parenta8e882d99a037075595260dc74fad0fb67c69d81 (diff)
parent00a187f5bb7dc08117965eae05df51d0eedac90e (diff)
Merge branch 'master' into issue-100
Conflicts: sx-question-mode.el
Diffstat (limited to 'sx-auth.el')
-rw-r--r--sx-auth.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/sx-auth.el b/sx-auth.el
index 2217b8b..b6c0411 100644
--- a/sx-auth.el
+++ b/sx-auth.el
@@ -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