Mercurial > hg > xemacs-beta

comparison lisp/utils/passwd.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
15 ;; XEmacs is distributed in the hope that it will be useful, but 15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;;; Synched up with: Not in FSF.
21
22 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
25 ;; Boston, MA 02111-1307, USA.
26 23
27 ;;; Change Log: 24 ;;; Change Log:
28 ;; 25 ;;
29 ;; Sun Jun 12 04:19:30 1994 by sandy on ibm550.sissa.it 26 ;; Sun Jun 12 04:19:30 1994 by sandy on ibm550.sissa.it
30 ;; Added support for password histories and (provide 'passwd) 27 ;; Added support for password histories and (provide 'passwd)
184 passwd))) 181 passwd)))
185 ;; protected 182 ;; protected
186 (passwd-ungrab-keyboard) 183 (passwd-ungrab-keyboard)
187 (passwd-insecure-display) 184 (passwd-insecure-display)
188 (passwd-kill-buffer input) 185 (passwd-kill-buffer input)
189 (if (fboundp 'clear-message) ;XEmacs 186 (message "")
190 (clear-message)
191 (message ""))
192 )))) 187 ))))
193 188
194 189
195 (defun read-passwd-1 (buffer prompt &optional prompt2 default) 190 (defun read-passwd-1 (buffer prompt &optional prompt2 default)
196 (set-buffer buffer) 191 (set-buffer buffer)
370 ;; read-key-sequence echoes the key sequence in Emacs 18. 365 ;; read-key-sequence echoes the key sequence in Emacs 18.
371 (defun passwd-read-key-sequence (prompt) 366 (defun passwd-read-key-sequence (prompt)
372 (let ((inhibit-quit t) 367 (let ((inhibit-quit t)
373 str) 368 str)
374 (while (or (null str) (keymapp (key-binding str))) 369 (while (or (null str) (keymapp (key-binding str)))
375 (if (fboundp 'display-message) 370 (message prompt)
376 (display-message 'prompt prompt)
377 (message prompt))
378 (setq str (concat str (char-to-string (read-char))))) 371 (setq str (concat str (char-to-string (read-char)))))
379 (setq quit-flag nil) 372 (setq quit-flag nil)
380 str)) 373 str))
381 374
382 (or (string-match "^18" emacs-version) 375 (or (string-match "^18" emacs-version)