Mercurial > hg > xemacs-beta

comparison lisp/w3/url-misc.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 8d2a9b52c682
children 34a5b81f86ba
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
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/03/24 23:59:37 3 ;; Created: 1997/04/07 13:24:49
4 ;; Version: 1.13 4 ;; Version: 1.14
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.
63 (proc (url-open-stream "finger" url-working-buffer host 63 (proc (url-open-stream "finger" url-working-buffer host
64 (string-to-int port)))) 64 (string-to-int port))))
65 (if (not (processp proc)) 65 (if (not (processp proc))
66 nil 66 nil
67 (process-kill-without-query proc) 67 (process-kill-without-query proc)
68 (set-process-sentinel proc 'ignore)
68 (if (= (string-to-char user) ?/) 69 (if (= (string-to-char user) ?/)
69 (setq user (substring user 1 nil))) 70 (setq user (substring user 1 nil)))
70 (goto-char (point-min)) 71 (goto-char (point-min))
71 (insert "<html>\n" 72 (insert "<html>\n"
72 " <head>\n" 73 " <head>\n"