Mercurial > hg > xemacs-beta

comparison lisp/w3/url-gopher.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents c53a95d3c46d
children cca96a509cfe
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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/02/18 23:34:30 3 ;; Created: 1997/03/18 01:02:58
4 ;; Version: 1.6 4 ;; Version: 1.7
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.
454 url-confirmation-func 454 url-confirmation-func
455 (format "Warning! Trying to connect to port %s - continue? " 455 (format "Warning! Trying to connect to port %s - continue? "
456 (nth 1 descr)))) 456 (nth 1 descr))))
457 (if url-use-hypertext-gopher 457 (if url-use-hypertext-gopher
458 (url-do-gopher descr) 458 (url-do-gopher descr)
459 (gopher-dispatch-object (vector (if (= 0 459 (gopher-dispatch-object (vector (if (= 0 (length (nth 2 descr)))
460 (string-to-char (nth 2 descr)))
461 ?1 460 ?1
462 (string-to-char (nth 2 descr))) 461 (string-to-char (nth 2 descr)))
463 (nth 2 descr) (nth 2 descr) 462 (nth 2 descr) (nth 2 descr)
464 (nth 0 descr) 463 (nth 0 descr)
465 (string-to-int (nth 1 descr))) 464 (string-to-int (nth 1 descr)))