[Emacs-diffs] Changes to emacs/lisp/shadowfile.el

[Romain Francoise]

Index: emacs/lisp/shadowfile.el
diff -c emacs/lisp/shadowfile.el:1.26 emacs/lisp/shadowfile.el:1.27
*** emacs/lisp/shadowfile.el:1.26       Sat Aug  6 22:13:43 2005
--- emacs/lisp/shadowfile.el    Sat Sep 24 13:44:00 2005
***************
*** 438,444 ****
                       (sit-for 2))
                     try-regexp))
  ;      (username (read-no-blanks-input
! ;                 (format "Username [default: %s]: "
  ;                         (shadow-get-user primary))
  ;                 (if old (or (shadow-cluster-username old) "")
  ;                   (user-login-name))))
--- 438,444 ----
                       (sit-for 2))
                     try-regexp))
  ;      (username (read-no-blanks-input
! ;                 (format "Username (default %s): "
  ;                         (shadow-get-user primary))
  ;                 (if old (or (shadow-cluster-username old) "")
  ;                   (user-login-name))))
***************
*** 458,464 ****
         (name (nth 2 hup))
         user site group)
      (while (setq site (shadow-read-site))
!       (setq user (read-string (format "Username [default %s]: "
                                      (shadow-get-user site)))
            name (read-string "Filename: " name))
        (setq group (cons (shadow-make-fullname site
--- 458,464 ----
         (name (nth 2 hup))
         user site group)
      (while (setq site (shadow-read-site))
!       (setq user (read-string (format "Username (default %s): "
                                      (shadow-get-user site)))
            name (read-string "Filename: " name))
        (setq group (cons (shadow-make-fullname site