/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.360 by jpw, Mon Jul 21 18:03:06 2003 UTC revision 1.361 by rms, Wed Aug 6 01:05:15 2003 UTC
# Line 1180  Optional DEFAULT is a default password t Line 1180  Optional DEFAULT is a default password t
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)
# Line 1199  Optional DEFAULT is a default password t Line 1199  Optional DEFAULT is a default password t
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 ""))))

Legend:
Removed from v.1.360  
changed lines
  Added in v.1.361

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26