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

Diff of /emacs/lisp/shadowfile.el

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

revision 1.26 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.27 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC
# Line 438  in the cluster." Line 438  in the cluster."
438                         (sit-for 2))                         (sit-for 2))
439                       try-regexp))                       try-regexp))
440  ;        (username (read-no-blanks-input  ;        (username (read-no-blanks-input
441  ;                   (format "Username [default: %s]: "  ;                   (format "Username (default %s): "
442  ;                           (shadow-get-user primary))  ;                           (shadow-get-user primary))
443  ;                   (if old (or (shadow-cluster-username old) "")  ;                   (if old (or (shadow-cluster-username old) "")
444  ;                     (user-login-name))))  ;                     (user-login-name))))
# Line 458  specific hostnames, or names of clusters Line 458  specific hostnames, or names of clusters
458           (name (nth 2 hup))           (name (nth 2 hup))
459           user site group)           user site group)
460      (while (setq site (shadow-read-site))      (while (setq site (shadow-read-site))
461        (setq user (read-string (format "Username [default %s]: "        (setq user (read-string (format "Username (default %s): "
462                                        (shadow-get-user site)))                                        (shadow-get-user site)))
463              name (read-string "Filename: " name))              name (read-string "Filename: " name))
464        (setq group (cons (shadow-make-fullname site        (setq group (cons (shadow-make-fullname site

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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