From: Andreas Schwab <schwab@suse.de>
Date: Wed, 24 Jun 1998 08:47:03 +0000 (+0000)
Subject: (ange-ftp-default-user,
X-Git-Tag: emacs-20.3~513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6114e627e9fbdfe24819ac0569921938599f1aea;p=emacs.git

(ange-ftp-default-user,
ange-ftp-generate-anonymous-password): Use `other' widget type.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 138e4a2ac1a..6053d43a590 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -740,8 +740,8 @@ since setting `ange-ftp-default-user' directly does not affect
 the cached information."
   :group 'ange-ftp
   :type '(choice (const :tag "Default" nil)
-		 (const :tag "Prompt" t)
-		 string))
+		 string
+		 (other :tag "Prompt" t)))
 
 (defcustom ange-ftp-netrc-default-user nil
   "Alternate default user name to use when none is specified.
@@ -782,9 +782,9 @@ if there is one."
 If a string, then use that string as the password.
 If nil, prompt the user for a password."
   :group 'ange-ftp
-  :type '(choice (const :tag "User address" t)
-		 (const :tag "Prompt" nil)
-		 string))
+  :type '(choice (const :tag "Prompt" nil)
+		 string
+		 (other :tag "User address" t)))
 
 (defcustom ange-ftp-dumb-unix-host-regexp nil
   "*If non-nil, regexp matching hosts on which `dir' command lists directory."