Mercurial > hg > xemacs-beta

comparison lisp/utils/passwd.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
67 (if (fboundp 'set-keymap-name) 67 (if (fboundp 'set-keymap-name)
68 (set-keymap-name map 'read-passwd-map)) 68 (set-keymap-name map 'read-passwd-map))
69 69
70 (while (< i 127) 70 (while (< i 127)
71 (aset s 0 i) 71 (aset s 0 i)
72 (or (and (boundp 'meta-prefix-char) (eq i meta-prefix-char)) 72 (or (and (boundp 'meta-prefix-char) (eq (int-char i) meta-prefix-char))
73 (define-key map s 'self-insert-command)) 73 (define-key map s 'self-insert-command))
74 (setq i (1+ i))) 74 (setq i (1+ i)))
75 75
76 (define-key map "\C-g" 'keyboard-quit) 76 (define-key map "\C-g" 'keyboard-quit)
77 (define-key map "\C-h" 'delete-backward-char) 77 (define-key map "\C-h" 'delete-backward-char)