diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-07-29 16:27:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-07-29 16:27:49 +0000 |
| commit | 425435dbb3e619099ab5efe712723ef153cc28c3 (patch) | |
| tree | 3bef24ffa9decd50adb6422e16ef59aa0751bfb3 /lisp/ange-ftp.el | |
| parent | 2ed930420bbea2f0ed07c3ac13e75c83443bf4b2 (diff) | |
| download | emacs-425435dbb3e619099ab5efe712723ef153cc28c3.tar.gz | |
(ange-ftp-read-passwd): Let first input override
default, and let RET use the default value.
(ange-ftp-get-passwd): Make prompt clearer.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 634726892e1..d0dae527cc9 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1008,7 +1008,7 @@ only return the directory part of FILE." "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 @@ Optional DEFAULT is password to start with." (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 @@ Optional DEFAULT is password to start with." ;; 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)) |