Mercurial > emacs
comparison lisp/subr.el @ 88123:375f2633d815
New directory
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 11:56:09 +0000 |
parents | 695cf19ef79e |
children | 68c22ea6027c |
comparison
equal
deleted
inserted
replaced
52428:27bc8b966642 | 88123:375f2633d815 |
---|---|
1178 (while (not success) | 1178 (while (not success) |
1179 (let ((first (read-passwd prompt nil default)) | 1179 (let ((first (read-passwd prompt nil default)) |
1180 (second (read-passwd "Confirm password: " nil default))) | 1180 (second (read-passwd "Confirm password: " nil default))) |
1181 (if (equal first second) | 1181 (if (equal first second) |
1182 (progn | 1182 (progn |
1183 (and (arrayp second) (clear-string second)) | 1183 (and (arrayp second) (fillarray second ?\0)) |
1184 (setq success first)) | 1184 (setq success first)) |
1185 (and (arrayp first) (clear-string first)) | 1185 (and (arrayp first) (fillarray first ?\0)) |
1186 (and (arrayp second) (clear-string second)) | 1186 (and (arrayp second) (fillarray second ?\0)) |
1187 (message "Password not repeated accurately; please start over") | 1187 (message "Password not repeated accurately; please start over") |
1188 (sit-for 1)))) | 1188 (sit-for 1)))) |
1189 success) | 1189 success) |
1190 (let ((pass nil) | 1190 (let ((pass nil) |
1191 (c 0) | 1191 (c 0) |
1197 (setq c (read-char-exclusive nil t)) | 1197 (setq c (read-char-exclusive nil t)) |
1198 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) | 1198 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) |
1199 (clear-this-command-keys) | 1199 (clear-this-command-keys) |
1200 (if (= c ?\C-u) | 1200 (if (= c ?\C-u) |
1201 (progn | 1201 (progn |
1202 (and (arrayp pass) (clear-string pass)) | 1202 (and (arrayp pass) (fillarray pass ?\0)) |
1203 (setq pass "")) | 1203 (setq pass "")) |
1204 (if (and (/= c ?\b) (/= c ?\177)) | 1204 (if (and (/= c ?\b) (/= c ?\177)) |
1205 (let* ((new-char (char-to-string c)) | 1205 (let* ((new-char (char-to-string c)) |
1206 (new-pass (concat pass new-char))) | 1206 (new-pass (concat pass new-char))) |
1207 (and (arrayp pass) (clear-string pass)) | 1207 (and (arrayp pass) (fillarray pass ?\0)) |
1208 (clear-string new-char) | 1208 (fillarray new-char ?\0) |
1209 (setq c ?\0) | 1209 (setq c ?\0) |
1210 (setq pass new-pass)) | 1210 (setq pass new-pass)) |
1211 (if (> (length pass) 0) | 1211 (if (> (length pass) 0) |
1212 (let ((new-pass (substring pass 0 -1))) | 1212 (let ((new-pass (substring pass 0 -1))) |
1213 (and (arrayp pass) (clear-string pass)) | 1213 (and (arrayp pass) (fillarray pass ?\0)) |
1214 (setq pass new-pass)))))) | 1214 (setq pass new-pass)))))) |
1215 (message nil) | 1215 (message nil) |
1216 (or pass default "")))) | 1216 (or pass default "")))) |
1217 | 1217 |
1218 ;;; Atomic change groups. | 1218 ;;; Atomic change groups. |
1548 "Insert before point a part of buffer BUFFER, stripping some text properties. | 1548 "Insert before point a part of buffer BUFFER, stripping some text properties. |
1549 BUFFER may be a buffer or a buffer name. Arguments START and END are | 1549 BUFFER may be a buffer or a buffer name. Arguments START and END are |
1550 character numbers specifying the substring. They default to the | 1550 character numbers specifying the substring. They default to the |
1551 beginning and the end of BUFFER. Strip text properties from the | 1551 beginning and the end of BUFFER. Strip text properties from the |
1552 inserted text according to `yank-excluded-properties'." | 1552 inserted text according to `yank-excluded-properties'." |
1553 ;; Since the buffer text should not normally have yank-handler properties, | |
1554 ;; there is no need to handle them here. | |
1555 (let ((opoint (point))) | 1553 (let ((opoint (point))) |
1556 (insert-buffer-substring buf start end) | 1554 (insert-buffer-substring buf start end) |
1557 (remove-yank-excluded-properties opoint (point)))) | 1555 (remove-yank-excluded-properties opoint (point)))) |
1558 | 1556 |
1559 | 1557 |
2448 (put symbol 'composefunc composefunc) | 2446 (put symbol 'composefunc composefunc) |
2449 (put symbol 'sendfunc sendfunc) | 2447 (put symbol 'sendfunc sendfunc) |
2450 (put symbol 'abortfunc (or abortfunc 'kill-buffer)) | 2448 (put symbol 'abortfunc (or abortfunc 'kill-buffer)) |
2451 (put symbol 'hookvar (or hookvar 'mail-send-hook))) | 2449 (put symbol 'hookvar (or hookvar 'mail-send-hook))) |
2452 | 2450 |
2453 ;;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc | |
2454 ;;; subr.el ends here | 2451 ;;; subr.el ends here |