Mercurial > hg > xemacs-beta
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) |