Skip to content
This repository has been archived by the owner on Jun 27, 2021. It is now read-only.

Commit

Permalink
* auth-password-store.el: Update dependency and usage of seq.
Browse files Browse the repository at this point in the history
  • Loading branch information
NicolasPetton committed Sep 17, 2015
1 parent e7e3dbc commit 066934b
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions auth-password-store.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
;; Nicolas Petton <[email protected]>
;; Version: 0.1
;; GIT: https://github.com/DamienCassou/auth-password-store
;; Package-Requires: ((emacs "24.4") (password-store "0.1") (seq "1.7") (cl-lib "0.5"))
;; Package-Requires: ((emacs "24.4") (password-store "0.1") (seq "1.9") (cl-lib "0.5"))
;; Created: 07 Jun 2015
;; Keywords: pass password-store auth-source username password login

Expand Down Expand Up @@ -46,7 +46,7 @@ See `auth-source-search' for details on SPEC."
t "Invalid password-store search: %s %s")
(when (listp host)
;; Take the first non-nil item of the list of hosts
(setq host (seq-some-p #'identity host)))
(setq host (seq-find #'identity host)))
(let ((entry (auth-pass--find-match host user)))
(when entry
(list (list
Expand Down Expand Up @@ -129,7 +129,7 @@ found, return nil."
(let ((entries (seq-filter (lambda (entry)
(string-match host entry))
(password-store-list))))
(seq-some-p (lambda (entry)
(seq-find (lambda (entry)
(or (null user)
(string= user (auth-pass-get "user" entry))))
entries)))
Expand Down

0 comments on commit 066934b

Please sign in to comment.