procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(password-read-and-add): Doc fix.  Make obsolete.
This commit is contained in:
Glenn Morris 2007-12-04 04:11:13 +00:00
parent 49052ec018
commit 8b33467307
2 changed files with 14 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
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.

25
lisp/password-cache.el
View file

@ -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