Mercurial > hg > xemacs-beta

comparison lisp/w3/url-misc.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code 1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/21 21:14:56 3 ;; Created: 1997/02/08 05:29:22
4 ;; Version: 1.9 4 ;; Version: 1.10
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.
52 (port (or (url-port urlobj) 52 (port (or (url-port urlobj)
53 (cdr-safe (assoc "finger" url-default-ports)))) 53 (cdr-safe (assoc "finger" url-default-ports))))
54 (user (url-unhex-string (url-filename urlobj))) 54 (user (url-unhex-string (url-filename urlobj)))
55 (proc (url-open-stream "finger" url-working-buffer host 55 (proc (url-open-stream "finger" url-working-buffer host
56 (string-to-int port)))) 56 (string-to-int port))))
57 (if (stringp proc) 57 (if (not (processp proc))
58 (message "%s" proc) 58 nil
59 (process-kill-without-query proc) 59 (process-kill-without-query proc)
60 (if (= (string-to-char user) ?/) 60 (if (= (string-to-char user) ?/)
61 (setq user (substring user 1 nil))) 61 (setq user (substring user 1 nil)))
62 (goto-char (point-min)) 62 (goto-char (point-min))
63 (insert "<html>\n" 63 (insert "<html>\n"