Mercurial > emacs
comparison lisp/ange-ftp.el @ 22566:a9b9f92d0f4d
(ange-ftp-default-user,
ange-ftp-generate-anonymous-password): Use `other' widget type.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 24 Jun 1998 08:47:03 +0000 |
| parents | d893285c4d8a |
| children | f392093d562d |
comparison
equal
deleted
inserted
replaced
| 22565:3d2804459d84 | 22566:a9b9f92d0f4d |
|---|---|
| 738 ange-ftp. Use \\[ange-ftp-set-user] to change the cached values, | 738 ange-ftp. Use \\[ange-ftp-set-user] to change the cached values, |
| 739 since setting `ange-ftp-default-user' directly does not affect | 739 since setting `ange-ftp-default-user' directly does not affect |
| 740 the cached information." | 740 the cached information." |
| 741 :group 'ange-ftp | 741 :group 'ange-ftp |
| 742 :type '(choice (const :tag "Default" nil) | 742 :type '(choice (const :tag "Default" nil) |
| 743 (const :tag "Prompt" t) | 743 string |
| 744 string)) | 744 (other :tag "Prompt" t))) |
| 745 | 745 |
| 746 (defcustom ange-ftp-netrc-default-user nil | 746 (defcustom ange-ftp-netrc-default-user nil |
| 747 "Alternate default user name to use when none is specified. | 747 "Alternate default user name to use when none is specified. |
| 748 | 748 |
| 749 This variable is set from the `default' command in your `.netrc' file, | 749 This variable is set from the `default' command in your `.netrc' file, |
| 780 "*If t, use value of `user-mail-address' as password for anonymous ftp. | 780 "*If t, use value of `user-mail-address' as password for anonymous ftp. |
| 781 | 781 |
| 782 If a string, then use that string as the password. | 782 If a string, then use that string as the password. |
| 783 If nil, prompt the user for a password." | 783 If nil, prompt the user for a password." |
| 784 :group 'ange-ftp | 784 :group 'ange-ftp |
| 785 :type '(choice (const :tag "User address" t) | 785 :type '(choice (const :tag "Prompt" nil) |
| 786 (const :tag "Prompt" nil) | 786 string |
| 787 string)) | 787 (other :tag "User address" t))) |
| 788 | 788 |
| 789 (defcustom ange-ftp-dumb-unix-host-regexp nil | 789 (defcustom ange-ftp-dumb-unix-host-regexp nil |
| 790 "*If non-nil, regexp matching hosts on which `dir' command lists directory." | 790 "*If non-nil, regexp matching hosts on which `dir' command lists directory." |
| 791 :group 'ange-ftp | 791 :group 'ange-ftp |
| 792 :type '(choice (const :tag "Default" nil) | 792 :type '(choice (const :tag "Default" nil) |