diff options
Diffstat (limited to 'lisp/auth-source.el')
| -rw-r--r-- | lisp/auth-source.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index fdd869df3a6..4926f67f0a1 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -504,7 +504,7 @@ soon as a function returns non-nil.") (add-hook 'auth-source-backend-parser-functions #'auth-source-backends-parser-secrets) (defun auth-source-backend-parse-parameters (entry backend) - "Fills in the extra auth-source-backend parameters of ENTRY. + "Fill in the extra auth-source-backend parameters of ENTRY. Using the plist ENTRY, get the :host, :port, and :user search parameters." (let ((entry (if (stringp entry) @@ -773,7 +773,7 @@ Returns the deleted entries." (apply #'auth-source-search (plist-put spec :delete t))) (defun auth-source-search-collection (collection value) - "Returns t is VALUE is t or COLLECTION is t or COLLECTION contains VALUE." + "Return t if VALUE is t or COLLECTION is t or COLLECTION contains VALUE." (when (and (atom collection) (not (eq t collection))) (setq collection (list collection))) @@ -1514,15 +1514,15 @@ Respects `auth-source-save-behavior'. Uses ;;; Backend specific parsing: Secrets API backend (defun auth-source-secrets-listify-pattern (pattern) - "Convert a pattern with lists to a list of string patterns. + "Convert a PATTERN with lists to a list of string patterns. auth-source patterns can have values of the form :foo (\"bar\" \"qux\"), which means to match any secret with :foo equal to \"bar\" or :foo equal to \"qux\". The secrets backend supports only string values for patterns, so this routine returns a list -of patterns that is equivalent to the single original pattern +of patterns that is equivalent to the single original PATTERN when interpreted such that if a secret matches any pattern in the -list, it matches the original pattern." +list, it matches the original PATTERN." (if (null pattern) '(nil) (let* ((key (pop pattern)) @@ -1935,7 +1935,7 @@ entries for git.gnus.org: (defun auth-source--decode-octal-string (string) - "Convert octal string to utf-8 string. E.g: 'a\134b' to 'a\b'" + "Convert octal string to utf-8 string. E.g: 'a\134b' to 'a\b'" (let ((list (string-to-list string)) (size (length string))) (decode-coding-string @@ -2034,7 +2034,7 @@ entries for git.gnus.org: (cl-defun auth-source-plstore-search (&rest spec &key backend create delete max &allow-other-keys) - "Search the PLSTORE; spec is like `auth-source'." + "Search the PLSTORE; SPEC is like `auth-source'." (let* ((store (oref backend data)) (max (or max 5000)) ; sanity check: default to stop at 5K (ignored-keys '(:create :delete :max :backend :label :require :type)) |