Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
25e907da
Commit
25e907da
authored
Apr 08, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(telnet-initial-filter, read-password): Don't unnecessarily duplicate comint
functionality.
parent
e555fdd8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
12 deletions
+3
-12
lisp/telnet.el
lisp/telnet.el
+3
-12
No files found.
lisp/telnet.el
View file @
25e907da
...
...
@@ -127,10 +127,9 @@ rejecting one login and prompting again for a username and password.")
(
error
"No such host."
))
((
string-match
"passw"
string
)
(
telnet-filter
proc
string
)
(
let*
((
echo-keystrokes
0
)
(
password
(
read-password
)))
(
setq
telnet-count
0
)
(
send-string
proc
(
concat
password
telnet-new-line
))))
(
setq
telnet-count
0
)
(
send-string
proc
(
concat
(
comint-read-noecho
"Password: "
t
)
telnet-new-line
)))
(
t
(
telnet-check-software-type-initialize
string
)
(
telnet-filter
proc
string
)
(
cond
((
>
telnet-count
telnet-maximum-count
)
...
...
@@ -228,14 +227,6 @@ Normally input is edited in Emacs and sent a line at a time."
(
telnet-mode
)
(
setq
telnet-count
-16
)))
(
defun
read-password
()
(
let
((
answ
""
)
tem
)
(
message
"Reading password..."
)
(
while
(
prog1
(
not
(
memq
(
setq
tem
(
read-char
))
'
(
?\C-m
?\n
?\C-g
)))
(
setq
quit-flag
nil
))
(
setq
answ
(
concat
answ
(
char-to-string
tem
))))
answ
))
(
provide
'telnet
)
;;; telnet.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment