Mercurial > hg > xemacs-beta

comparison lisp/packages/gopher.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1308 ;;;; telneting. 1308 ;;;; telneting.
1309 ;;;; 1309 ;;;;
1310 1310
1311 (defun gopher-telnet-object (obj oldbuf) 1311 (defun gopher-telnet-object (obj oldbuf)
1312 "Start a telnet session to a gopher object. 1312 "Start a telnet session to a gopher object.
1313 If gopher-telnet-command is nonnil, then that is a command to start 1313 If gopher-telnet-command is non-nil, then that is a command to start
1314 a telnet session in a subprocess. Otherwise, the emacs-lisp telnet 1314 a telnet session in a subprocess. Otherwise, the emacs-lisp telnet
1315 package is used." 1315 package is used."
1316 1316
1317 ;; make the telnet argument string 1317 ;; make the telnet argument string
1318 (let ((arg (gopher-object-host obj)) 1318 (let ((arg (gopher-object-host obj))