home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / help / 5316 < prev    next >
Encoding:
Text File  |  1993-01-10  |  2.0 KB  |  48 lines
  1. Xref: sparky gnu.emacs.help:5316 comp.sys.next.software:3377
  2. Newsgroups: gnu.emacs.help,comp.sys.next.software
  3. Path: sparky!uunet!spool.mu.edu!uwm.edu!cs.utexas.edu!sun-barr!sh.wide!wnoc-tyo-news!news.u-tokyo.ac.jp!ccut!s.u-tokyo!is.s.u-tokyo!miyasita
  4. From: miyasita@is.s.u-tokyo.ac.jp (MIYASHITA Ken)
  5. Subject: Re: webster with emacs 18.59 ?
  6. References: <7233@ucsbcsl.ucsb.edu> <tom.726164342@dynamo.ecn.purdue.edu> 
  7.     <1993Jan8.35445.19302@kei.is.s.u-tokyo.ac.jp>
  8. Nntp-Posting-Host: beatrice
  9. Message-ID: <1993Jan11.22909.27849@kei.is.s.u-tokyo.ac.jp>
  10. Organization: Dept. of Info. Sci., Fac. of Sci, Univ. of Tokyo, Japan.
  11. In-Reply-To: miyasita@is.s.u-tokyo.ac.jp's message of Fri, 8 Jan 1993 
  12.     03:54:43 GMT
  13. Sender: news@kei.is.s.u-tokyo.ac.jp (Usenet News System)
  14. Date: Mon, 11 Jan 1993 02:29:05 GMT
  15. X-Bytes: 1193
  16. Lines: 31
  17.  
  18. In my previsus post, I proposed the solution for the problem with
  19. webster.el. But I should have mentioned on the article that I also fixed
  20. telnet.el with the help of Mr. Lennart Lovstrand
  21. <Lennart_Lovstrand@NeXT.COM>. After replacing the function 'telnet'
  22. with the following new version, you can get the really working webster
  23. front end.
  24.  
  25. (defun telnet (arg)
  26.   "Open a network login connection to host named HOST (a string).
  27. Communication with HOST is recorded in a buffer *HOST-telnet*.
  28. Normally input is edited in Emacs and sent a line at a time."
  29.   (interactive "sOpen telnet connection to host: ")
  30.   (require 'shell)
  31.   (let ((name (concat arg "-telnet" )))
  32.     (switch-to-buffer (make-shell name "telnet"))
  33.     (set-process-filter (get-process name) 'telnet-initial-filter)
  34.     (accept-process-output (get-process name))
  35.     (erase-buffer)
  36.     (send-string  name (concat "open " arg "\n"))
  37.     (telnet-mode)
  38.     (setq telnet-count -16)))
  39.  
  40.  
  41. --
  42.  
  43.     Ken MIYASHITA
  44.         miyasita@is.s.u-tokyo.ac.jp
  45.         (Dept. of Info. Sci., Fac. of Sci.,  Univ. of Tokyo, Japan)
  46.         $@5\2<(J  $@7r(J (Japanese Kanji)
  47.         $@El5~Bg3XM}3X7O8&5f2J>pJs2J3X@l96JF_7(J$@8&5f<<(J (Japanese Kanji)
  48.