WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/midnight.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:31 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/midnight.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.

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


(custom-declare-group 'midnight nil "Run something every day at midnight." :group 'calendar :version "20.3")
#@166 Timer running the `midnight-hook' `midnight-delay' seconds after midnight.
Use `cancel-timer' to stop it and `midnight-delay-set' to change
the time when it is run.
(defvar midnight-timer nil (#$ . 661))
#@172 Non-nil means run `midnight-hook' at midnight.
Setting this variable outside customize has no effect;
call `cancel-timer' or `timer-activate' on `midnight-timer' instead.
(custom-declare-variable 'midnight-mode nil '(#$ . 872) :type 'boolean :group 'midnight :require 'midnight :initialize 'custom-initialize-default :set #[(symb val) "	L\210\303\304!\210	\203\305\n!\207\306\n!\207" [symb val midnight-timer require midnight timer-activate cancel-timer] 2])
#@63 Return the time-stamp of BUFFER, or current buffer, as float.
(defalias 'midnight-buffer-display-time #[(&optional buffer) "r\206pq\210	\205\302	!)\207" [buffer buffer-display-time float-time] 2 (#$ . 1340)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\316\306\307&\210\300\317\320\321\304\322\306\307&\210\300\323\324\325\304\326\306\307&\210\300\327\330\331\304\332\306\307&\207" [custom-declare-variable clean-buffer-list-delay-general 3 "The number of days before any buffer becomes eligible for autokilling.\nThe autokilling is done by `clean-buffer-list' when is it in `midnight-hook'.\nCurrently displayed and/or modified (unsaved) buffers, as well as buffers\nmatching `clean-buffer-list-kill-never-buffer-names' and\n`clean-buffer-list-kill-never-regexps' are excluded." :type integer :group midnight clean-buffer-list-delay-special 3600 "The number of seconds before some buffers become eligible for autokilling.\nBuffers matched by `clean-buffer-list-kill-regexps' and\n`clean-buffer-list-kill-buffer-names' are killed if they were last\ndisplayed more than this many seconds ago." clean-buffer-list-kill-regexps nil "List of regexps saying which buffers will be killed at midnight.\nIf buffer name matches a regexp in the list and the buffer was not displayed\nin the last `clean-buffer-list-delay-special' seconds, it is killed by\n`clean-buffer-list' when is it in `midnight-hook'.\nIf a member of the list is a cons, its `car' is the regexp and its `cdr' is\nthe number of seconds to use instead of `clean-buffer-list-delay-special'.\nSee also `clean-buffer-list-kill-buffer-names',\n`clean-buffer-list-kill-never-regexps' and\n`clean-buffer-list-kill-never-buffer-names'." (repeat (regexp :tag "Regexp matching Buffer Name")) clean-buffer-list-kill-buffer-names '("*Help*" "*Apropos*" "*Man " "*Buffer List*" "*Compile-Log*" "*info*" "*vc*" "*vc-diff*" "*diff*") "List of strings saying which buffers will be killed at midnight.\nBuffers with names in this list, which were not displayed in the last\n`clean-buffer-list-delay-special' seconds, are killed by `clean-buffer-list'\nwhen is it in `midnight-hook'.\nIf a member of the list is a cons, its `car' is the name and its `cdr' is\nthe number of seconds to use instead of `clean-buffer-list-delay-special'.\nSee also `clean-buffer-list-kill-regexps',\n`clean-buffer-list-kill-never-regexps' and\n`clean-buffer-list-kill-never-buffer-names'." (repeat (string :tag "Buffer Name")) clean-buffer-list-kill-never-buffer-names '("*scratch*" "*Messages*") "List of buffer names which will never be killed by `clean-buffer-list'.\nSee also `clean-buffer-list-kill-never-regexps'.\nNote that this does override `clean-buffer-list-kill-regexps' and\n`clean-buffer-list-kill-buffer-names' so a buffer matching any of these\ntwo lists will NOT be killed if it is also present in this list." (repeat (string :tag "Buffer Name")) clean-buffer-list-kill-never-regexps '("^ \\*Minibuf-.*\\*$") "List of regexp saying which buffers will never be killed at midnight.\nSee also `clean-buffer-list-kill-never-buffer-names'.\nKilling is done by `clean-buffer-list'.\nNote that this does override `clean-buffer-list-kill-regexps' and\n`clean-buffer-list-kill-buffer-names' so a buffer matching any of these\ntwo lists will NOT be killed if it also matches anything in this list." (repeat (regexp :tag "Regexp matching Buffer Name"))] 8)
#@55 A stopgap solution to the absence of `find' in ELisp.
(defalias 'midnight-find #[(el ls test &optional key) "\300\301\215\207" [--cl-block-nil-- (byte-code "\306\211\205)\n@\f\203\f	!\202	
\"\203!\307\310	\"\210\nA\211\204\306*\207" [ls rr --dolist-tail-- test key el nil throw --cl-block-nil--] 4)] 2 (#$ . 4805)])
#@261 Return the delay, in seconds, before killing a buffer named NAME.
Uses `clean-buffer-list-kill-buffer-names', `clean-buffer-list-kill-regexps'
`clean-buffer-list-delay-general' and `clean-buffer-list-delay-special'.
Autokilling is done by `clean-buffer-list'.
(defalias 'clean-buffer-list-delay #[(name) "\305	\306\n$\206\305\307\n$\206\f\310_\207" [name clean-buffer-list-kill-buffer-names clean-buffer-list-delay-special clean-buffer-list-kill-regexps clean-buffer-list-delay-general assoc-default string= string-match 86400] 5 (#$ . 5142)])
#@564 Kill old buffers that have not been displayed recently.
The relevant variables are `clean-buffer-list-delay-general',
`clean-buffer-list-delay-special', `clean-buffer-list-kill-buffer-names',
`clean-buffer-list-kill-never-buffer-names',
`clean-buffer-list-kill-regexps' and
`clean-buffer-list-kill-never-regexps'.
While processing buffers, this procedure displays messages containing
the current date/time, buffer name, how many seconds ago it was
displayed (can be nil if the buffer was never displayed) and its
lifetime, i.e., its "age" when it will be purged.
(defalias 'clean-buffer-list #[nil "\306 \307\310\311!\307\211\211\312 \307\211\205\230@\313!\203\216\314!\315!\f\203:
\fZ\202;\316\317!\320\321\f\205K\322\n!	%\210\323\324#\204\216\323 \325#\204\216\326!\204\216\327!\203u\330!\204\216\331\332\"\204\216\n	W\204\216\320\333#\210\334!\210A\211\204\307.\207" [bn cbld delay ts bts tm float-time nil format-time-string "%Y-%m-%d %T" buffer-list buffer-live-p midnight-buffer-display-time buffer-name 0 clean-buffer-list-delay message "[%s] `%s' [%s %d]" round midnight-find string-match string-equal get-buffer-process buffer-file-name buffer-modified-p get-buffer-window visible "[%s] killing `%s'" kill-buffer buf --dolist-tail-- clean-buffer-list-kill-never-regexps clean-buffer-list-kill-never-buffer-names] 7 (#$ . 5700) nil])
#@65 The number of seconds in a day--the delta for `midnight-timer'.
(defvar midnight-period 86400 (#$ . 7111))
#@107 The hook run `midnight-delay' seconds after midnight every day.
The default value is `clean-buffer-list'.
(custom-declare-variable 'midnight-hook ''(clean-buffer-list) '(#$ . 7225) :type 'hook :group 'midnight)
#@54 Return the number of seconds till the next midnight.
(defalias 'midnight-next #[nil "\306 \211@A\211@\nA\211@\fA
	\f
\307\310\311_
\312_\f$.\n\207" [#1=#:val #2=#:xcar #3=#:xcdr #4=#:xcar #5=#:xcdr #6=#:xcar decode-time - 86400 3600 60 #7=#:xcdr sec min hrs] 6 (#$ . 7442)])
#@152 Modify `midnight-timer' according to `midnight-delay'.
Sets the first argument SYMB (which must be symbol `midnight-delay')
to its second argument TM.
(defalias 'midnight-delay-set #[(symb tm) "\304=\204\305\306\"\210	L\210\307\n!\203\310\n!\210\311	\247\203&\312 	\\\202'	\313\314$\211\207" [symb tm midnight-timer midnight-period midnight-delay error "Invalid argument to `midnight-delay-set': `%s'" timerp cancel-timer run-at-time midnight-next run-hooks midnight-hook] 5 (#$ . 7742)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\311!\207" [custom-declare-variable midnight-delay 3600 "The number of seconds after the midnight when the `midnight-timer' is run.\nYou should set this variable before loading midnight.el, or\nset it by calling `midnight-delay-set', or use `custom'.\nIf you wish, you can use a string instead, it will be passed as the\nfirst argument to `run-at-time'." :type sexp :set midnight-delay-set :group midnight provide] 10)
F1l3 Manager
