| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/savehist.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:29 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/savehist.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\305\306\307\310\311&\210\312\313\314\315\316\317\310\303&\210\312\320\304\321\316\322\310\303&\210\312\323\304\324\316\325\310\303&\210\312\326\327\330\316\331\310\303&\210\312\332\333\334\316\335\310\303&\210\312\336\337\340\316\341\310\303&\210\312\342\304\343\316\344\310\303&\210\312\345\304\346\316\344\310\303&\207" [require custom custom-declare-group savehist nil "Save minibuffer history." :version "22.1" :group minibuffer custom-declare-variable savehist-save-minibuffer-history t "If non-nil, save all recorded minibuffer histories.\nIf you want to save only specific histories, use `savehist-save-hook' to\nmodify the value of `savehist-minibuffer-history-variables'." :type boolean savehist-additional-variables "List of additional variables to save.\nEach element is a symbol whose value will be persisted across Emacs\nsessions that use savehist. The contents of variables should be\nprintable with the Lisp printer. You don't need to add minibuffer\nhistory variables to this list, all minibuffer histories will be\nsaved automatically as long as `savehist-save-minibuffer-history' is\nnon-nil.\n\nUser options should be saved with the customize interface. This\nlist is useful for saving automatically updated variables that are not\nminibuffer histories, such as `compile-command' or `kill-ring'." (repeat variable) savehist-ignored-variables "List of additional variables not to save." (repeat variable) savehist-file (locate-user-emacs-file "history" ".emacs-history") "File name where minibuffer history is saved to and loaded from.\nThe minibuffer history is a series of Lisp expressions loaded\nautomatically when `savehist-mode' is turned on. See `savehist-mode'\nfor more details.\n\nIf you want your minibuffer history shared between Emacs and XEmacs,\ncustomize this value and make sure that `savehist-coding-system' is\nset to a coding system that exists in both emacsen." file savehist-file-modes 384 "Default permissions of the history file.\nThis is decimal, not octal. The default is 384 (0600 in octal).\nSet to nil to use the default permissions that Emacs uses, typically\nmandated by umask. The default is a bit more restrictive to protect\nthe user's privacy." integer savehist-autosave-interval (* 5 60) "The interval between autosaves of minibuffer history.\nIf set to nil, disables timer-based autosaving." (choice (const :tag "Disabled" nil) (integer :tag "Seconds")) savehist-mode-hook "Hook called when `savehist-mode' is turned on." hook savehist-save-hook "Hook called by `savehist-save' before saving the variables.\nYou can use this hook to influence choice and content of variables to\nsave."] 8)
#@184 The coding system savehist uses for saving the minibuffer history.
Changing this value while Emacs is running is supported, but considered
unwise, unless you know what you are doing.
(defvar savehist-coding-system 'utf-8-unix (#$ . 3251))
(defvar savehist-timer nil)
(defvar savehist-last-checksum nil)
#@226 List of minibuffer histories.
The contents of this variable is built while Emacs is running, and saved
along with minibuffer history. You can change its value off
`savehist-save-hook' to influence which variables are saved.
(defvar savehist-minibuffer-history-variables nil (#$ . 3561))
#@190 Coding system without any conversion.
This is used for calculating an internal checksum. Should be as fast
as possible, ideally simply exposing the internal representation of
buffer text.
(defconst savehist-no-conversion 'no-conversion (#$ . 3856))
#@130 Whether the history has already been loaded.
This prevents toggling `savehist-mode' from destroying existing
minibuffer history.
(defvar savehist-loaded nil (#$ . 4113))
#@260 Non-nil if Savehist mode is enabled.
See the command `savehist-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `savehist-mode'.
(custom-declare-variable 'savehist-mode nil '(#$ . 4290) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'savehist :type 'boolean)
#@615 Toggle saving of minibuffer history (Savehist mode).
With a prefix argument ARG, enable Savehist mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
When Savehist mode is enabled, minibuffer history is saved
periodically and when exiting Emacs. When Savehist mode is
enabled for the first time in an Emacs session, it loads the
previous minibuffer history from `savehist-file'.
This mode should normally be turned on from your Emacs init file.
Calling it at any other time replaces your current minibuffer
histories, which is probably undesirable.
(defalias 'savehist-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\204 \311 \210\2020 \204- \312\f!\203- \313\314\315\217\210\316 \210\317\320\n\203: \321\202; \322\"\210\323\324!\203` \325\302!\210\305 \203S \305 \232\203` \326\327\n\203] \330\202^ \331\"\210)\332 \210\n\207" [#1=#:last-message arg savehist-mode savehist-loaded savehist-file current-message toggle prefix-numeric-value 0 savehist-uninstall file-exists-p errvar (byte-code "\302\303\304\305!?#\210\306\303\207" [savehist-file savehist-loaded load nil called-interactively-p interactive t] 5) ((error (byte-code "\302\303 \210\304 @ A\"\207" [savehist-mode errvar nil savehist-uninstall signal] 3))) savehist-install run-hooks savehist-mode-hook savehist-mode-on-hook savehist-mode-off-hook called-interactively-p any customize-mark-as-set message "Savehist mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4713) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [savehist-mode-map add-minor-mode savehist-mode nil boundp] 6)
#@243 Load the variables stored in `savehist-file' and turn on `savehist-mode'.
If `savehist-file' is in the old format that doesn't record
the value of `savehist-minibuffer-history-variables', that
value is deducted from the contents of the file.
(defalias 'savehist-load #[nil "\304\305!\210?\2052 \306\307!r q\210\310\216\311\312\313\217\210\311\211\311\314\315\217\211\203. \nA@ B\202 -\211\207" [savehist-minibuffer-history-variables #1=#:temp-buffer form vars savehist-mode 1 generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (insert-file-contents savehist-file) ((error)) (byte-code "\300p!\207" [read] 2) ((error))] 3 (#$ . 6410)])
(make-obsolete 'savehist-load 'savehist-mode "22.1")
#@201 Hook savehist into Emacs.
Normally invoked by calling `savehist-mode' to set the minor mode.
Installs `savehist-autosave' in `kill-emacs-hook' and on a timer.
To undo this, call `savehist-uninstall'.
(defalias 'savehist-install #[nil "\302\303\304\"\210\302\305\306\"\210\205 ?\205 \307\211\306#\211\207" [savehist-autosave-interval savehist-timer add-hook minibuffer-setup-hook savehist-minibuffer-hook kill-emacs-hook savehist-autosave run-with-timer] 4 (#$ . 7177)])
#@96 Undo installing savehist.
Normally invoked by calling `savehist-mode' to unset the minor mode.
(defalias 'savehist-uninstall #[nil "\301\302\303\"\210\301\304\305\"\210\205 \306!\210\307\211\207" [savehist-timer remove-hook minibuffer-setup-hook savehist-minibuffer-hook kill-emacs-hook savehist-autosave cancel-timer nil] 3 (#$ . 7659)])
#@249 Save the values of minibuffer history variables.
Unbound symbols referenced in `savehist-additional-variables' are ignored.
If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
and don't save the buffer if they are the same.
(defalias 'savehist-save #[(&optional auto-save) "\306\307!rq\210\310\216\311\312 \"\313\261\210\314\315!\210\316\211\211\317\211 (\316 )\211 *\203P *@\211)9\203G \320)!\321\232\203G \322)\"*A\211*\204, *+\203\350 \323\324\325\326DEp\"\210\327c\210\316 ,\211 *\203\347 *@,\330,!\203\336 ,->\204\336 \331,J!\316 .\211 /\203\335 \332c\210\323,p\"\210\333c\210`./\316 0\211 *\203\310 *@0` 1\334c\210\316\335\336\217\210db\210)*A\211*\204\253 *\212.b\210g\337=\203\331 ``T|\210)\340c\210**A\211*\204o *2\316 ,\211 *\203$*@,\330,!\203,J /\341/!\203\323\324,\326/DEp\"\210\327c\210)*A\211*\204\363 .\342p\316\2113$ 45\205946\232?\205e\317 7 8\343ed9\316\344\345!?\205Q\346%\210*:\203`\3479:\"\2104\2116,\207" [#1=#:temp-buffer savehist-coding-system print-quoted print-readably print-level print-string-length generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) format ";; -*- mode: emacs-lisp; coding: %s -*-\n" ";; Minibuffer history file, automatically generated by `savehist'.\n\n" run-hooks savehist-save-hook nil t symbol-name "forget-history" delq prin1 setq savehist-minibuffer-history-variables quote 10 boundp savehist-trim-history "(setq " " '(" " " (byte-code "\302p\"\210\212 b\210\303p!\210)\302\207" [elt start prin1 read] 3) ((error (byte-code "b\210\301c\210m\204 \302c\210\303y\210\202 \301c\207" [start "\n" ";;; " 1] 1))) 32 "))\n" savehist-printable md5 write-region called-interactively-p interactive quiet set-file-modes print-length sym --dolist-tail-- savehist-save-minibuffer-history symbol savehist-ignored-variables excess-space value elt start savehist-additional-variables savehist-no-conversion checksum auto-save savehist-last-checksum coding-system-for-write file-precious-flag savehist-file savehist-file-modes] 8 (#$ . 8009) nil])
#@114 Save the minibuffer history if it has been modified since the last save.
Does nothing if `savehist-mode' is off.
(defalias 'savehist-autosave #[nil "\205 \301\302!\207" [savehist-mode savehist-save t] 2 (#$ . 10157)])
#@173 Retain only the first `history-length' items in VALUE.
Only used under XEmacs, which doesn't (yet) implement automatic
trimming of history lists to `history-length' items.
(defalias 'savehist-trim-history #[(value) "\207" [value] 1 (#$ . 10384)])
#@39 Return non-nil if VALUE is printable.
(defalias 'savehist-printable #[(value) "\247\206' 9\206' ;\203 \302\303!\"\206' \304\305!r q\210\306\216\307\310\311\217+\207" [value #1=#:temp-buffer equal-including-properties substring-no-properties generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (byte-code "\303\304\305\np\"\210\306\307 !\210*\303\207" [print-level print-readably value t nil prin1 read point-min-marker] 3) ((error))] 4 (#$ . 10638)])
(defalias 'savehist-minibuffer-hook #[nil "\302=\206 >?\205 \303\304\"\207" [minibuffer-history-variable savehist-ignored-variables t add-to-list savehist-minibuffer-history-variables] 3])
(provide 'savehist)