WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/password-cache.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:34 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/password-cache.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable password-cache t "Whether to cache passwords." :group password :type boolean password-cache-expiry 16 "How many seconds passwords are cached, or nil to disable expiring.\nWhether passwords are cached at all is controlled by `password-cache'." (choice (const :tag "Never" nil) (integer :tag "Seconds"))] 8)
(defvar password-data (make-vector 7 0))
#@150 Obtain passphrase for KEY from time-limited passphrase cache.
Custom variables `password-cache' and `password-cache-expiry'
regulate cache behavior.
(defalias 'password-read-from-cache #[(key) "\205
	\205
\303	\n\"J\207" [password-cache key password-data intern-soft] 3 (#$ . 1020)])
#@31 Check if KEY is in the cache.
(defalias 'password-in-cache-p #[(key) "\205\f	\205\f\303	\n\"\207" [password-cache key password-data intern-soft] 3 (#$ . 1313)])
#@279 Read password, for use with KEY, from user, or from cache if wanted.
KEY indicate the purpose of the password, so the cache can
separate passwords.  The cache is not used if KEY is nil.  It is
typically a string.
The variable `password-cache' control whether the cache is used.
(defalias 'password-read #[(prompt &optional key) "\302!\206	\303	!\207" [key prompt password-read-from-cache read-passwd] 2 (#$ . 1484)])
#@469 Read password, for use with KEY, from user, or from cache if wanted.
Then store the password in the cache.  Uses `password-read' and
`password-cache-add'.  Custom variables `password-cache' and
`password-cache-expiry' regulate cache behavior.

Warning: the password is cached without checking that it is
correct.  It is better to check the password before caching.  If
you must use this function, take care to check passwords and
remove incorrect ones from the cache.
(defalias 'password-read-and-add #[(prompt &optional key) "\303	\"\211\203	\203\304	\n\"\210\n)\207" [prompt key password password-read password-cache-add] 4 (#$ . 1910)])
(make-obsolete 'password-read-and-add 'password-read "23.1")
#@317 Remove password indexed by KEY from password cache.
This is typically run by a timer setup from `password-cache-add',
but can be invoked at any time to forcefully remove passwords
from the cache.  This may be useful when it has been detected
that a password is invalid, so that `password-read' query the
user again.
(defalias 'password-cache-remove #[(key) "\304	\"\211\205(\nJ\211;\203#\305\306!\203\306!\210\202#\307\310\"\210\311	\"))\207" [key password-data sym password intern-soft fboundp clear-string fillarray 95 unintern] 4 (#$ . 2624)])
#@98 Add password to cache.
The password is removed by a timer after `password-cache-expiry' seconds.
(defalias 'password-cache-add #[(key password) "\203\304	\n\"\204\305\306\307	$\210\310	\n\"L\210\306\207" [password-cache-expiry key password-data password intern-soft run-at-time nil password-cache-remove intern] 5 (#$ . 3188)])
#@27 Clear the password cache.
(defalias 'password-reset #[nil "\301\302\"\207" [password-data fillarray 0] 3 (#$ . 3529) nil])
(provide 'password-cache)
F1l3 Manager
