;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-history.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312\313\314&\210\315\316\307\317\320\321\322\323\313\306&	\210\315\324\307\325\322\326\313\306&\210\315\327\330\331\320\332\322\333\313\306&	\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 custom-declare-variable url-history-track "Controls whether to keep a list of all the URLs being visited.\nIf non-nil, the URL package will keep track of all the URLs visited.\nIf set to t, then the list is saved to disk at the end of each Emacs\nsession." :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)) url-history-file "The global history file for the URL package.\nThis file contains a list of all the URLs you have visited.  This file\nis parsed at startup and used to provide URL completion." (choice (const :tag "Default" :value nil) file) url-history-save-interval 3600 "The number of seconds between automatic saves of the history list.\nDefault is 1 hour.  Note that if you change this variable outside of\nthe `customize' interface after `url-do-setup' has been run, you need\nto run the `url-history-setup-save-timer' function manually." #[(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] integer] 10)
(defvar url-history-timer nil)
#@69 Whether the history list has changed since the last save operation.
(defvar url-history-changed-since-last-save nil (#$ . 2146))
#@43 Hash table for global history completion.
(defvar url-history-hash-table (make-hash-table :size 31 :test 'equal) (#$ . 2281))
#@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 (#$ . 2413) 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 (#$ . 2737)])
(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 (#$ . 3347) 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)