comparison lisp/w3/url.el @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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/03/05 23:37:22 3 ;; Created: 1997/03/09 06:19:51
4 ;; Version: 1.61 4 ;; Version: 1.62
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/03/05 23:37:22|1.61|Location Undetermined 10 ;;; 1997/03/09 06:19:51|1.62|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.
1596 ;; Write an Emacs-w3 style global history list into FNAME 1596 ;; Write an Emacs-w3 style global history list into FNAME
1597 (erase-buffer) 1597 (erase-buffer)
1598 (let ((count 0)) 1598 (let ((count 0))
1599 (cl-maphash (function 1599 (cl-maphash (function
1600 (lambda (key value) 1600 (lambda (key value)
1601 (while (string-match "[\r\n]+" key)
1602 (setq key (concat (substring key 0 (match-beginning 0))
1603 (substring key (match-end 0) nil))))
1601 (setq count (1+ count)) 1604 (setq count (1+ count))
1602 (insert "(cl-puthash \"" key "\"" 1605 (insert "(cl-puthash \"" key "\""
1603 (if (not (stringp value)) " '" "") 1606 (if (not (stringp value)) " '" "")
1604 (prin1-to-string value) 1607 (prin1-to-string value)
1605 " url-global-history-hash-table)\n"))) 1608 " url-global-history-hash-table)\n")))
1947 "If you feel this is an error in Emacs-W3, please " 1950 "If you feel this is an error in Emacs-W3, please "
1948 "<a href=\"mailto://" url-bug-address "\">send me mail.</a>" 1951 "<a href=\"mailto://" url-bug-address "\">send me mail.</a>"
1949 "<p><address>William Perry</address><br>" 1952 "<p><address>William Perry</address><br>"
1950 "<address>" url-bug-address "</address>")) 1953 "<address>" url-bug-address "</address>"))
1951 (cond 1954 (cond
1952 ((and url-be-asynchronous (not cached) (member type '("http" "proxy"))) 1955 ((and url-be-asynchronous (not cached)
1956 (member type '("http" "https" "proxy")))
1953 nil) 1957 nil)
1954 ((and url-be-asynchronous (get-buffer url-working-buffer)) 1958 ((and url-be-asynchronous (get-buffer url-working-buffer))
1955 (funcall url-default-retrieval-proc (buffer-name))) 1959 (funcall url-default-retrieval-proc (buffer-name)))
1956 ((not (get-buffer url-working-buffer)) nil) 1960 ((not (get-buffer url-working-buffer)) nil)
1957 ((and (not url-inhibit-mime-parsing) 1961 ((and (not url-inhibit-mime-parsing)