1180 |
(second (read-passwd "Confirm password: " nil default))) |
(second (read-passwd "Confirm password: " nil default))) |
1181 |
(if (equal first second) |
(if (equal first second) |
1182 |
(progn |
(progn |
1183 |
(and (arrayp second) (fillarray second ?\0)) |
(and (arrayp second) (clear-string second)) |
1184 |
(setq success first)) |
(setq success first)) |
1185 |
(and (arrayp first) (fillarray first ?\0)) |
(and (arrayp first) (clear-string first)) |
1186 |
(and (arrayp second) (fillarray second ?\0)) |
(and (arrayp second) (clear-string second)) |
1187 |
(message "Password not repeated accurately; please start over") |
(message "Password not repeated accurately; please start over") |
1188 |
(sit-for 1)))) |
(sit-for 1)))) |
1189 |
success) |
success) |
1199 |
(clear-this-command-keys) |
(clear-this-command-keys) |
1200 |
(if (= c ?\C-u) |
(if (= c ?\C-u) |
1201 |
(progn |
(progn |
1202 |
(and (arrayp pass) (fillarray pass ?\0)) |
(and (arrayp pass) (clear-string pass)) |
1203 |
(setq pass "")) |
(setq pass "")) |
1204 |
(if (and (/= c ?\b) (/= c ?\177)) |
(if (and (/= c ?\b) (/= c ?\177)) |
1205 |
(let* ((new-char (char-to-string c)) |
(let* ((new-char (char-to-string c)) |
1206 |
(new-pass (concat pass new-char))) |
(new-pass (concat pass new-char))) |
1207 |
(and (arrayp pass) (fillarray pass ?\0)) |
(and (arrayp pass) (clear-string pass)) |
1208 |
(fillarray new-char ?\0) |
(clear-string new-char) |
1209 |
(setq c ?\0) |
(setq c ?\0) |
1210 |
(setq pass new-pass)) |
(setq pass new-pass)) |
1211 |
(if (> (length pass) 0) |
(if (> (length pass) 0) |
1212 |
(let ((new-pass (substring pass 0 -1))) |
(let ((new-pass (substring pass 0 -1))) |
1213 |
(and (arrayp pass) (fillarray pass ?\0)) |
(and (arrayp pass) (clear-string pass)) |
1214 |
(setq pass new-pass)))))) |
(setq pass new-pass)))))) |
1215 |
(message nil) |
(message nil) |
1216 |
(or pass default "")))) |
(or pass default "")))) |