HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/savehist.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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'\nto modify 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\nto save."] 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 (#$ . 3104))
(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 (#$ . 3414))
#@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 (#$ . 3709))
#@128 Whether the history has already been loaded.
This prevents toggling Savehist mode from destroying existing
minibuffer history.
(defvar savehist-loaded nil (#$ . 3966))
#@260 Non-nil if Savehist mode is enabled.
See the `savehist-mode' command
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 '(#$ . 4141) :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) "\306 \307\302	\310=\203\311\302!?\202\312	!\313V\"\210\n\204#\314 \210\202R\204O\315\f!\203O\3161A\317\f\320\321\322!?#\210\323\2110\202N\320\314 \210\324
@
A\")\210\325 \210\326\327\311\302!\203^\330\202_\331\"\210\321\332!\203\214\333\302!\210\306 \203w\306 \232\203\214\334\"\335\336\311\302!\203\206\337\202\207\340\"#\210))\341 \210\311\302!\207" [#1=#:last-message arg savehist-mode savehist-loaded savehist-file errvar current-message set-default toggle default-value prefix-numeric-value 0 savehist-uninstall file-exists-p (error) load nil called-interactively-p interactive t signal savehist-install run-hooks savehist-mode-hook savehist-mode-on-hook savehist-mode-off-hook any customize-mark-as-set "" message "Savehist mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 4564) (list (or current-prefix-arg 'toggle))])
(defvar savehist-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [savehist-mode-map savehist-mode-hook variable-documentation put "Hook run after entering or leaving `savehist-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode savehist-mode nil boundp] 6)
#@241 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 "\305\306!\210?\205F\307\310!r	q\210\311\216\3121\313\n!0\202\"\210\202#\210\314\211\31512\316p!0\2024\210\314\211\203BA@\fB\202'\f-\211\207" [savehist-minibuffer-history-variables #1=#:temp-buffer savehist-file form vars savehist-mode 1 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) insert-file-contents nil (error) read] 2 (#$ . 6510)])
(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 (#$ . 7253)])
#@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 (#$ . 7735)])
#@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	\"c\210\313\314!\210\315\211\211\316\211'(\203\340\317\320\321\322DEp\"\210\323c\210\315)\211*\203\337*@)\324)!\203\326)+>\204\326\325)J!\315,\211-\203\325\326c\210\317)p\"\210\327c\210`,-\315.\211*\203\300*@.`/\330c\210\3311\233\317.p\"\210\212/b\210\332p!)0\202\262\210/b\210\333c\210m\204\260\334c\210\335y\210\202\243\333c\210db\210)*A\211*\204y*\212,b\210g\336=\203\321``T|\210)\337c\210**A\211*\204=*0\315)\211*\203*@)\324)!\203)J-\340-!\203\317\320)\322-DEp\"\210\323c\210)*A\211*\204\353.\341p\315\2111$23\205124\232?\205]\316	56\342ed7\315\343\344!?\205I\345%\210*8\203X\34678\"\2102\2114,\207" [#1=#:temp-buffer savehist-coding-system print-quoted print-readably print-level print-string-length generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] format-message ";; -*- mode: emacs-lisp; coding: %s -*-\n;; Minibuffer history file, automatically generated by `savehist'.\n\n" run-hooks savehist-save-hook nil t prin1 setq savehist-minibuffer-history-variables quote 10 boundp savehist-trim-history "(setq " " '(" " " (error) read "\n" ";;; " 1 32 "))\n" savehist-printable md5 write-region called-interactively-p interactive quiet set-file-modes print-length savehist-save-minibuffer-history symbol --dolist-tail-- 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 (#$ . 8085) nil])
#@112 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 (#$ . 10027)])
#@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 (#$ . 10252)])
#@39 Return non-nil if VALUE is printable.
(defalias 'savehist-printable #[(value) "\247\206=9\206=;\203\304\305!\"\206=\306\307!r	q\210\310\216\3111:\312\313\314p\"\210\315\316 !\210*\3120\202<\210\313+\207" [value #1=#:temp-buffer print-level print-readably equal-including-properties substring-no-properties generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) t nil prin1 read point-min-marker] 4 (#$ . 10506)])
(defalias 'savehist-minibuffer-hook #[nil "\303=\206		>?\205\n\235\203\n\207\nB\211\207" [minibuffer-history-variable savehist-ignored-variables savehist-minibuffer-history-variables t] 2])
(provide 'savehist)