Current File : //usr/local/share/emacs/27.2/lisp/savehist.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\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\331%\210\312\332\314\315\333DD\334\320\335%\210\312\336\314\315\337DD\340\320\341%\210\312\342\314\315\343DD\344\320\345%\210\312\346\314\315\347DD\350\320\351%\210\312\352\314\315\353DD\354\320\351%\207" [require custom custom-declare-group savehist nil "Save minibuffer history." :version "22.1" :group minibuffer custom-declare-variable savehist-save-minibuffer-history funcall function #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "List of additional variables not to save." (repeat variable) savehist-file #[0 "\300\301\302\"\207" [locate-user-emacs-file "history" ".emacs-history"] 3] "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." file savehist-file-modes #[0 "\300\207" [384] 1] "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 #[0 "\300\207" [300] 1] "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 #[0 "\300\207" [nil] 1] "Hook called when Savehist mode is turned on." hook savehist-save-hook #[0 "\300\207" [nil] 1] "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 (#$ . 3114))
(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 (#$ . 3424))
#@128 Whether the history has already been loaded.
This prevents toggling Savehist mode from destroying existing
minibuffer history.
(defvar savehist-loaded nil (#$ . 3719))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable savehist-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Savehist mode is enabled.\nSee the `savehist-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `savehist-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group savehist :type boolean] 12)
#@1533 Toggle saving of minibuffer history (Savehist mode).
If called interactively, enable Savehist mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Savehist mode is enabled, minibuffer history is saved
to `savehist-file' periodically and when exiting Emacs. When
Savehist mode is enabled for the first time in an Emacs session,
it loads the previous minibuffer histories from `savehist-file'.
The variable `savehist-autosave-interval' controls the
periodicity of saving minibuffer histories.
If `savehist-save-minibuffer-history' is non-nil (the default),
all recorded minibuffer histories will be saved. You can arrange
for additional history variables to be saved and restored by
customizing `savehist-additional-variables', which by default is
an empty list. For example, to save the history of commands
invoked via \[execute-extended-command], add `command-history' to the list in
`savehist-additional-variables'.
Alternatively, you could customize `savehist-save-minibuffer-history'
to nil, and add to `savehist-additional-variables' only those
history variables you want to save.
To ignore some history variables, add their symbols to the list
in `savehist-ignored-variables'.
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.
(fn &optional ARG)
(defalias 'savehist-mode #[256 "\303 \304\300\305=\203 \306\300!?\202 \307!\310V\"\210\204\" \311 \210\202Q \204N \312\n!\203N \3131@ \314\n\315\316\317!?#\210\320\2110\202M \315\311 \210\321@A\"\262\210\322 \210\323\324\306\300!\203] \325\202^ \326\"\210\316\327!\203\210 \330\300!\210\303 \203v \211\303 \232\203\210 \331\332\333\306\300!\203\203 \334\202\204 \335#\266\210\336 \210\306\300!\207" [savehist-mode savehist-loaded savehist-file 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] 7 (#$ . 4419) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(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)
#@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 #[0 "\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 (#$ . 7261)])
#@96 Undo installing savehist.
Normally invoked by calling `savehist-mode' to unset the minor mode.
(defalias 'savehist-uninstall #[0 "\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 (#$ . 7741)])
#@275 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.
(fn &optional AUTO-SAVE)
(defalias 'savehist-save #[256 "\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320\"c\210\321\322!\210\323\211\324\f\203\275 \325\326\305\327
DEp\"\210\330c\210
\211\203\274 \211@\331!\203\265 \211.>\204\265 \211J\323\203\263 \332c\210\325p\"\210\333c\210`\262\211\203\237 \211@`\334c\210\3351} \325p\"\210\212\211b\210\336p!)0\202\223 \210\211b\210\337c\210m\204\221 \340c\210\341y\210\202\204 \337c\210db\266A\266\202\202^ \210\212\211b\210g\342=\203\257 ``T|\210)\343c\210\266A\266\202\2025 \210/\211\203\350 \211@\331!\203\341 \211J\344!\203\340 \325\326\327DEp\"\210\330c\210\210A\266\202\202\277 \210+\345p\323\211$\205\370 \2110\232?\2056\324\3461! 2 3\347!\204\350\324\"\210\351ed1\323\352\353!?\205!\354%\210*\2664\2032\35514\"\210\211\2110\262*\207" [savehist-coding-system print-quoted print-level print-length savehist-save-minibuffer-history savehist-minibuffer-history-variables generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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 quote 10 boundp "(setq " " '(" " " (error) read "\n" ";;; " 1 32 "))\n" savehist-printable md5 file-name-directory file-exists-p make-directory write-region called-interactively-p interactive quiet set-file-modes savehist-ignored-variables savehist-additional-variables savehist-last-checksum savehist-file coding-system-for-write file-precious-flag savehist-file-modes] 13 (#$ . 8089) 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 #[0 "\205 \301\302!\207" [savehist-mode savehist-save t] 2 (#$ . 10007)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias savehist-trim-history identity nil make-obsolete "27.1"] 4)
#@51 Return non-nil if VALUE is printable.
(fn VALUE)
(defalias 'savehist-printable #[257 "\211\247\206F \2119\206F \211;\203 \301\302!\"\206F \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\3141A \315\316p\"\210\317\320 !\210)\3210\202C \210\315*\262\207" [print-level equal-including-properties substring-no-properties generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) nil prin1 read point-min-marker t] 8 (#$ . 10355)])
(defalias 'savehist-minibuffer-hook #[0 "\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)
Mini Shell