Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gopher.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; url-gopher.el --- Gopher Uniform Resource Locator retrieval code 1 ;;; url-gopher.el --- Gopher Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/10 00:13:05 3 ;; Created: 1997/02/08 05:25:58
4 ;; Version: 1.4 4 ;; Version: 1.5
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
268 url-current-port port 268 url-current-port port
269 url-current-server host 269 url-current-server host
270 url-current-type "gopher") 270 url-current-type "gopher")
271 (if (> (length selector) 0) 271 (if (> (length selector) 0)
272 (setq selector (substring selector 1 nil))) 272 (setq selector (substring selector 1 nil)))
273 (if (stringp proc) 273 (if (not (processp proc))
274 (message "%s" proc) 274 nil
275 (save-excursion 275 (save-excursion
276 (process-send-string proc (concat selector "\r\n")) 276 (process-send-string proc (concat selector "\r\n"))
277 (while (and (or (not wait-for) 277 (while (and (or (not wait-for)
278 (progn 278 (progn
279 (goto-char (point-min)) 279 (goto-char (point-min))