# 
# telnetx.dif: telnetx patch for telnet.el.
# 
#     [1997/05/03] OSHIRO Naoki.
# 
#     $Log:$
#

次のパッチを telnet.el に当てると Emacs/Mule 上の telnet セッションで 
telnetx が使えるようになります．telnet-command-name 変数で使用コマンド
を指定するようにしています．

*** telnet.el.org	Wed May  4 07:52:31 1994
--- telnet.el	Sat May  3 01:14:49 1997
***************
*** 53,58 ****
--- 53,59 ----
  (defvar telnet-mode-map nil)
  (defvar telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *")
  (defvar telnet-replace-c-g nil)
+ (defvar telnet-command-name "telnetx")
  (make-variable-buffer-local
   (defvar telnet-remote-echoes t
     "True if the telnet process will echo input."))
***************
*** 187,193 ****
  	 (buffer (get-buffer (concat "*" name "*"))))
      (if (and buffer (get-buffer-process buffer))
  	(switch-to-buffer (concat "*" name "*"))
!       (switch-to-buffer (make-comint name "telnet"))
        (set-process-filter (get-process name) 'telnet-initial-filter)
        ;; Don't send the `open' cmd till telnet is ready for it.
        (accept-process-output (get-process name))
--- 188,194 ----
  	 (buffer (get-buffer (concat "*" name "*"))))
      (if (and buffer (get-buffer-process buffer))
  	(switch-to-buffer (concat "*" name "*"))
!       (switch-to-buffer (make-comint name telnet-command-name))
        (set-process-filter (get-process name) 'telnet-initial-filter)
        ;; Don't send the `open' cmd till telnet is ready for it.
        (accept-process-output (get-process name))