Mercurial > hg > xemacs-beta

comparison lisp/utils/passwd.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 360340f9fd5f
children 43dd3413c7c7
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
35 ;; 7-Jul-95 by cthomp@cs.uiuc.edu 35 ;; 7-Jul-95 by cthomp@cs.uiuc.edu
36 ;; Added variable to control inverting frame when keyboard grabbed 36 ;; Added variable to control inverting frame when keyboard grabbed
37 37
38 ;;; Code: 38 ;;; Code:
39 39
40 (defvar passwd-invert-frame-when-keyboard-grabbed t 40 (defgroup passwd nil
41 "Prompting for passwords semi-securely"
42 :group 'processes)
43
44
45 (defcustom passwd-invert-frame-when-keyboard-grabbed t
41 "*If non-nil swap the foreground and background colors of all faces. 46 "*If non-nil swap the foreground and background colors of all faces.
42 This is done while the keyboard is grabbed in order to give a visual 47 This is done while the keyboard is grabbed in order to give a visual
43 clue that a grab is in effect.") 48 clue that a grab is in effect."
44 49 :type 'boolean
45 (defvar passwd-echo ?. 50 :group 'passwd)
51
52 (defcustom passwd-echo ?.
46 "*The character which should be echoed when typing a password, 53 "*The character which should be echoed when typing a password,
47 or nil, meaning echo nothing.") 54 or nil, meaning echo nothing."
55 :type 'sexp
56 :group 'passwd)
48 57
49 (defvar read-passwd-map 58 (defvar read-passwd-map
50 (let ((i 0) 59 (let ((i 0)
51 (s (make-string 1 0)) 60 (s (make-string 1 0))
52 map) 61 map)