Mercurial > hg > xemacs-beta

comparison lisp/w3/url-misc.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8d2a9b52c682
children cca96a509cfe
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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/02/19 00:52:07 3 ;; Created: 1997/03/24 23:59:37
4 ;; Version: 1.12 4 ;; Version: 1.13
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.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 (require 'url-vars) 29 (require 'url-vars)
30 (require 'url-parse) 30 (require 'url-parse)
31 (autoload 'Info-goto-node "info" "" t) 31 (autoload 'Info-goto-node "info" "" t)
32
33 (defun url-netrek (url)
34 ;; Start a netrek client
35 (if (get-buffer url-working-buffer)
36 (kill-buffer url-working-buffer))
37 (let ((data (url-generic-parse-url url)))
38 (error
39 "I should launch netrek on: %s %s" (url-host data) (url-port data))))
32 40
33 (defun url-info (url) 41 (defun url-info (url)
34 ;; Fetch an info node 42 ;; Fetch an info node
35 (if (get-buffer url-working-buffer) 43 (if (get-buffer url-working-buffer)
36 (kill-buffer url-working-buffer)) 44 (kill-buffer url-working-buffer))