Current File : //usr/local/share/emacs/27.2/lisp/url/url-history.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\317\320\321DD\322\323\324\325\326\313\306& \210\315\327\317\320\330DD\331\325\332\313\306&\210\315\333\317\320\334DD\335\323\336\325\337\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 funcall function #[0 "\300\207" [nil] 1] "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 #[514 "\301\"\210\302\300!\205 \205 \303 \207" [url-setup-done set-default boundp url-history-setup-save-timer] 5 "\n\n(fn VAR VAL)"] :type (choice (const :tag "off" nil) (const :tag "on" t) (other :tag "within session" session)) url-history-file #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [3600] 1] "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." #[514 "\301\"\210\302\300!\205 \205 \303 \207" [url-setup-done set-default boundp url-history-setup-save-timer] 5 "\n\n(fn VAR VAL)"] 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 (#$ . 2118))
#@43 Hash table for global history completion.
(defvar url-history-hash-table (make-hash-table :size 31 :test 'equal) (#$ . 2253))
#@31 Reset the history list timer.
(defalias 'url-history-setup-save-timer #[0 "\3031 \304!0\202 \210\202 \210\305 \306=\205# \n\205# \307\n\211\310#\211\207" [url-history-timer url-history-track url-history-save-interval (error) cancel-timer nil t run-at-time url-history-save-history] 4 (#$ . 2385) nil])
#@61 Parse a history file stored in FNAME.
(fn &optional FNAME)
(defalias 'url-history-parse-history #[256 "\211\204 \301!\262\302!?\206+ \303!\204 \304\305\"\207\3061& \307\310\311#0\207\210\304\312\"\207" [url-history-file expand-file-name file-exists-p file-readable-p message "%s is unreadable." (error) load nil t "Could not load %s"] 5 (#$ . 2699)])
#@17
(fn URL TIME)
(defalias 'url-history-update-url #[514 "\303\304\305! >\203 \306!\202 \n#\207" [url-history-changed-since-last-save cl-struct-url-tags url-history-hash-table t puthash type-of url-recreate-url] 6 (#$ . 3066)])
(autoload 'url-make-private-file "url-util")
#@248 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.
(fn &optional FNAME)
(defalias 'url-history-save-history #[256 "\205e \211\204
\306 !\262\3071 \310!\210\3110\202 \210\202! \203& \312\313\"\207\311\211\314\315C \316\317!r\211q\210\320\315\321\322\323!\324\"\325$\216\326\320\327\330\322\323!\331\"\332\333%
\"\210\334c\210\335!\210*\210+\266\311\211\207" [url-history-changed-since-last-save url-history-file require-final-newline version-control make-backup-files url-history-hash-table expand-file-name (error) url-make-private-file nil message "Error accessing history file `%s'" t 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 maphash 514 "\301\302\"\203 \303\304\211\224#\303\304\225\305#P\262\202 \300\211\242T\240\210\306\307;\204+ \310\202, \311\312!\313\261\207" [string-match "[
\n]+" substring 0 nil "(puthash \"" "\"" " '" "" prin1-to-string " url-history-hash-table)\n"] 8 "\n\n(fn KEY VALUE)" "\n" write-file] 13 (#$ . 3352) nil])
#@12
(fn URL)
(defalias 'url-have-visited-url #[257 "\301 \210\302\303#\207" [url-history-hash-table url-do-setup gethash nil] 5 (#$ . 4584)])
#@34
(fn STRING PREDICATE FUNCTION)
(defalias 'url-completion-function #[771 "\301 \210\211\302\267\202J \303C\304\305\306\307\310\311!\312\"\313\314%\"\210\315\242\237#\207\316\317!P\303C\304\305\306\320\310\311\"\321\"\313\322%\"\210\211\242\207\323\"\205M \324\207\325\326!\207" [url-history-hash-table url-do-setup #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 9 t 36 lambda 65)) nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn KEY _)" try-completion "\\`" regexp-quote "\302\300\"\205
\301\301\242B\240\207" [string-match] "\n\n(fn URL _)" gethash t error "url-completion-function very confused"] 13 (#$ . 4732)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete url-completion-function url-history-hash-table "26.1" provide url-history] 4)
Mini Shell