Gecko [ 122.154.134.11 ]

Name	Size	Permission
url-about.elc	2.7 KB	-rw-r--r--
url-auth.elc	10.21 KB	-rw-r--r--
url-cache.elc	5.79 KB	-rw-r--r--
url-cid.elc	1.44 KB	-rw-r--r--
url-cookie.elc	15.75 KB	-rw-r--r--
url-dav.elc	21.04 KB	-rw-r--r--
url-dired.elc	2.98 KB	-rw-r--r--
url-expand.elc	4.48 KB	-rw-r--r--
url-file.elc	7.68 KB	-rw-r--r--
url-ftp.elc	979 B	-rw-r--r--
url-gw.elc	7.17 KB	-rw-r--r--
url-handlers.elc	15.91 KB	-rw-r--r--
url-history.elc	5.29 KB	-rw-r--r--
url-http.elc	32.76 KB	-rw-r--r--
url-imap.elc	2.32 KB	-rw-r--r--
url-irc.elc	2.88 KB	-rw-r--r--
url-ldap.elc	6.4 KB	-rw-r--r--
url-mailto.elc	3.19 KB	-rw-r--r--
url-methods.elc	4.47 KB	-rw-r--r--
url-misc.elc	3.43 KB	-rw-r--r--
url-news.elc	7.51 KB	-rw-r--r--
url-nfs.elc	4.47 KB	-rw-r--r--
url-ns.elc	2.36 KB	-rw-r--r--
url-parse.elc	14.35 KB	-rw-r--r--
url-privacy.elc	1.88 KB	-rw-r--r--
url-proxy.elc	1.84 KB	-rw-r--r--
url-util.elc	12.18 KB	-rw-r--r--
url-vars.elc	13.65 KB	-rw-r--r--
url.elc	7.69 KB	-rw-r--r--

Code Editor : url-history.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:24 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/url/url-history.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-history.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312\313\314&\207" [require url-parse autoload url-do-setup "url" custom-declare-group url-history nil "History variables in the URL package." :prefix "url-history" :group url] 8)
#@212 *Controls whether to keep a list of all the URLs being visited.
If non-nil, the URL package will keep track of all the URLs visited.
If set to t, then the list is saved to disk at the end of each Emacs
session.
(custom-declare-variable 'url-history-track 'nil '(#$ . -862) :set #[(var val) "\303	\"\210\304\302!\205�\n\205�\305 \207" [var val url-setup-done set-default boundp url-history-setup-save-timer] 3] :type '(choice (const :tag "off" nil) (const :tag "on" t) (const :tag "within session" 'session)) :group 'url-history)
#@175 *The global history file for the URL package.
This file contains a list of all the URLs you have visited.  This file
is parsed at startup and used to provide URL completion.
(custom-declare-variable 'url-history-file 'nil '(#$ . -1401) :type '(choice (const :tag "Default" :value nil) file) :group 'url-history)
#@269 *The number of seconds between automatic saves of the history list.
Default is 1 hour.  Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-history-setup-save-timer' function manually.
(custom-declare-variable 'url-history-save-interval '3600 '(#$ . -1720) :set #[(var val) "\303	\"\210\304\302!\205�\n\205�\305 \207" [var val url-setup-done set-default boundp url-history-setup-save-timer] 3] :type 'integer :group 'url-history)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list url-history-timer default-boundp set-default nil] 3)
#@69 Whether the history list has changed since the last save operation.
(defvar url-history-changed-since-last-save nil (#$ . 2376))
#@43 Hash table for global history completion.
(defvar url-history-hash-table (make-hash-table :size 31 :test 'equal) (#$ . 2511))
#@31 Reset the history list timer.
(defalias 'url-history-setup-save-timer #[nil "\303\304\305\217\210\303	\306=\205�\n\205�\307\n\211\310#\211\207" [url-history-timer url-history-track url-history-save-interval nil (cancel-timer url-history-timer) ((error)) t run-at-time url-history-save-history] 4 (#$ . 2643) nil])
#@39 Parse a history file stored in FNAME.
(defalias 'url-history-parse-history #[(&optional fname) "\204�\302	!\303!?\206�\304!\204�\305\306\"\207\307\310\311\217\207" [fname url-history-file expand-file-name file-exists-p file-readable-p message "%s is unreadable." nil (load fname nil t) ((error (message "Could not load %s" fname)))] 3 (#$ . 2967)])
(defalias 'url-history-update-url #[(url time) "\304\305\306	!\203�\307	!\202�	\n#\207" [url-history-changed-since-last-save url time url-history-hash-table t puthash vectorp url-recreate-url] 4])
(autoload 'url-make-private-file "url-util")
#@226 Write the global history file into `url-history-file'.
The type of data written is determined by what is in the file to begin
with.  If the type of storage cannot be determined, then prompt the
user for what type to save as.
(defalias 'url-history-save-history #[(&optional fname) "\205?�	\204\f�\306\n!\307\310\311\217\203�\312\313	\"\207\307\211\314\315\316\317!rq\210\320\216\321\322\"\210\323c\210\324	!\210.\307\211\207" [url-history-changed-since-last-save fname url-history-file count require-final-newline version-control expand-file-name nil (byte-code "\301!\210\302\207" [fname url-make-private-file nil] 2) ((error t)) message "Error accessing history file `%s'" t 0 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) maphash #[(key value) "\303\304\"\203�\305\211\224O\305\225\306OP\202��	T\307\310\n;\204%�\311\202&�\312\313\n!\314\261\207" [key count value string-match "[
\n]+" 0 nil "(puthash \"" "\"" " '" "" prin1-to-string " url-history-hash-table)\n"] 6] "\n" write-file make-backup-files #1# url-history-hash-table] 4 (#$ . 3577) nil])
(defalias 'url-have-visited-url #[(url) "\302 \210\303	\304#\207" [url url-history-hash-table url-do-setup gethash nil] 4])
(defalias 'url-completion-function #[(string predicate function) "\306 \210\307=\203�\307\310\311\n\"\210\312	\237\f#)\207\313=\203/�\314\315!P\307\310\316\n\"\210
*\207\317=\203>�\320\n\"\205A�\313\207\321\322!\207" [function list url-history-hash-table string predicate retval url-do-setup nil maphash #[(key val) "	B\211\207" [key list] 2] try-completion t "\\`" regexp-quote #[(url time) "\303	\"\205\f�	\nB\211\207" [stub url retval string-match] 3] lambda gethash error "url-completion-function very confused" stub] 4])
(provide 'url-history)

${this.title}

Code Editor : url-history.elc