Mercurial > emacs

changeset 15798:a745f54990f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-read-passwd): Let first input override default, and let RET use the default value. (ange-ftp-get-passwd): Make prompt clearer.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jul 1996 16:27:49 +0000
parents 24c31fcbcf97
children 2a1123f30c73
files lisp/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Mon Jul 29 04:21:23 1996 +0000
+++ b/lisp/ange-ftp.el	Mon Jul 29 16:27:49 1996 +0000
@@ -1008,7 +1008,7 @@
   "Read a password, echoing `.' for each character typed.
 End with RET, LFD, or ESC.  DEL or C-h rubs out.  C-u kills line.
 Optional DEFAULT is password to start with."
-  (let ((pass (if default default ""))
+  (let ((pass nil)
 	(c 0)
 	(echo-keystrokes 0)
 	(cursor-in-echo-area t))
@@ -1025,7 +1025,7 @@
 	      (setq pass (substring pass 0 -1))))))
     (message "")
     (ange-ftp-repaint-minibuffer)
-    pass))
+    (or pass default "")))
 
 (defmacro ange-ftp-generate-passwd-key (host user)
   (` (concat (, host) "/" (, user))))
@@ -1102,7 +1102,7 @@
 			    ;; found another machine with the same user.
 			    ;; Try that account.
 			    (ange-ftp-read-passwd
-			     (format "passwd for %s@%s (same as %s@%s): "
+			     (format "passwd for %s@%s (default same as %s@%s): "
 				     user host user other)
 			     (ange-ftp-lookup-passwd other user))