aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-03-02 22:03:44 +0000
committerRichard M. Stallman1994-03-02 22:03:44 +0000
commit0cf4932f77b470a04ae0347cc4d4df1821e8a73d (patch)
treed272a5f54cc6a2a1af1413939c8b0206a71f8a4d
parent56eb10608f4b60b1d96c6e83498ea128ffa857e8 (diff)
downloademacs-0cf4932f77b470a04ae0347cc4d4df1821e8a73d.tar.gz
emacs-0cf4932f77b470a04ae0347cc4d4df1821e8a73d.zip
(telnet): Use chars in comint-delimiter-argument-list.
-rw-r--r--lisp/telnet.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el
index 847187640db..30ea1071f9a 100644
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -183,7 +183,7 @@ rejecting one login and prompting for the again for a username and password.")
183Communication with HOST is recorded in a buffer *HOST-telnet*. 183Communication with HOST is recorded in a buffer *HOST-telnet*.
184Normally input is edited in Emacs and sent a line at a time." 184Normally input is edited in Emacs and sent a line at a time."
185 (interactive "sOpen telnet connection to host: ") 185 (interactive "sOpen telnet connection to host: ")
186 (let* ((comint-delimiter-argument-list '(" " "\t")) 186 (let* ((comint-delimiter-argument-list '(?\ ?\t))
187 (name (concat (comint-arguments host 0 nil) "-telnet" )) 187 (name (concat (comint-arguments host 0 nil) "-telnet" ))
188 (buffer (get-buffer (concat "*" name "*")))) 188 (buffer (get-buffer (concat "*" name "*"))))
189 (if (and buffer (get-buffer-process buffer)) 189 (if (and buffer (get-buffer-process buffer))