Commit 8b334673 authored by Glenn Morris's avatar Glenn Morris
Browse files

(top-level): Don't require cl when compiling.

(password-read-and-add): Doc fix.  Make obsolete.
parent 49052ec0
2007-12-04 Glenn Morris <rgm@gnu.org>
* password-cache.el: Move here from gnus/password.el.
(top-level): Don't require cl when compiling.
(password-read-and-add): Doc fix. Make obsolete.
* emulation/cua-base.el (top-level): Move (provide 'cua-base) to end.
No longer provide 'cua. Don't require cua-rect, cua-gmrk when
compiling.
......
......@@ -37,13 +37,6 @@
;; (password-cache-add "test" "foo")
;; => nil
;; Note the previous two can be replaced with:
;; (password-read-and-add "Password? " "test")
;; ;; Minibuffer prompt for password.
;; => "foo"
;; ;; "foo" is now cached with key "test"
;; (password-read "Password? " "test")
;; ;; No minibuffer prompt
;; => "foo"
......@@ -60,9 +53,6 @@
;;; Code:
(eval-when-compile
(require 'cl))
(defcustom password-cache t
"Whether to cache passwords."
:group 'password
......@@ -97,14 +87,20 @@ The variable `password-cache' control whether the cache is used."
(defun password-read-and-add (prompt &optional key)
"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."
`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."
(let ((password (password-read prompt key)))
(when (and password key)
(password-cache-add key password))
password))
(make-obsolete 'password-read-and-add 'password-read "23.1")
(defun password-cache-remove (key)
"Remove password indexed by KEY from password cache.
This is typically run be a timer setup from `password-cache-add',
......@@ -121,8 +117,7 @@ user again."
(defun password-cache-add (key password)
"Add password to cache.
The password is removed by a timer after `password-cache-expiry'
seconds."
The password is removed by a timer after `password-cache-expiry' seconds."
(when (and password-cache-expiry (null (intern-soft key password-data)))
(run-at-time password-cache-expiry nil
#'password-cache-remove
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment