Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 9b50b4588a93
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
1 ;;; url.el --- Uniform Resource Locator retrieval tool 1 ;;; url.el --- Uniform Resource Locator retrieval tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/07 16:01:55 3 ;; Created: 1997/04/09 23:49:33
4 ;; Version: 1.72 4 ;; Version: 1.73
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;; LCD Archive Entry: 7 ;;; LCD Archive Entry:
8 ;;; url|William M. Perry|wmperry@cs.indiana.edu| 8 ;;; url|William M. Perry|wmperry@cs.indiana.edu|
9 ;;; Functions for retrieving/manipulating URLs| 9 ;;; Functions for retrieving/manipulating URLs|
10 ;;; 1997/04/07 16:01:55|1.72|Location Undetermined 10 ;;; 1997/04/09 23:49:33|1.73|Location Undetermined
11 ;;; 11 ;;;
12 12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
848 ((string-match "^www\\." url) 848 ((string-match "^www\\." url)
849 (url-retrieve (concat "http://" url))) 849 (url-retrieve (concat "http://" url)))
850 ((string-match "\\(\\.[^\\.]+\\)\\(\\.[^\\.]+\\)" url) 850 ((string-match "\\(\\.[^\\.]+\\)\\(\\.[^\\.]+\\)" url)
851 ;; Ok, we have at least two dots in the filename, just stick http on it 851 ;; Ok, we have at least two dots in the filename, just stick http on it
852 (url-retrieve (concat "http://" url))) 852 (url-retrieve (concat "http://" url)))
853 ((setq temp (run-hook-with-args-until-success
854 'url-handle-no-scheme-hook url))
855 (url-retrieve temp))
853 (t 856 (t
854 (url-retrieve (concat "http://www." url ".com")))))) 857 (url-retrieve (concat "http://www." url ".com"))))))
855 858
856 (defun url-setup-save-timer () 859 (defun url-setup-save-timer ()
857 "Reset the history list timer." 860 "Reset the history list timer."