Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/timer-list.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.

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


#@69 List all timers in a buffer.

(fn &optional IGNORE-AUTO NONCONFIRM)
(defalias 'list-timers #[512 "\306\307\310!!\210\311\312 \210\313 \210\314	\n\"\211\203\210\211@\315\316\317H\203$\320\202%\321\322H\323H\324HE\315\325\326\317H\203=\202A\327\330\"!\"\262
\331H\211\247\203V\315\325\332\245\"\202b\211\204^\333\202b\315\334\"\262
\335\330\311\336\337H!+%c\210\340\341 \341 T\342$\210\343c\210
A\266\202\202\210)eb\207" [inhibit-read-only timer-list timer-idle-list print-escape-newlines cl-print-compiled-button cl-print-compiled pop-to-buffer-same-window get-buffer-create "*timer-list*" t erase-buffer timer-list-mode append format "%4s %10s %8s %s" 7 "*" " " 1 2 3 "%.2f" float-time time-subtract nil 4 60 "-" "%s" static cl-prin1-to-string 5 put-text-property line-beginning-position timer "\n"] 14 (#$ . 408) nil])
(defvar timer-list-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\310\311\312\313$\210\211\207" [make-sparse-keymap define-key "c" timer-list-cancel "n" next-line "p" previous-line easy-menu-do-define nil "" ("Timers" ["Cancel" timer-list-cancel t])] 6))
(defvar timer-list-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [timer-list-mode-hook variable-documentation put "Hook run after entering Timer-List mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp timer-list-mode-map definition-name timer-list-mode] 4)
(defvar timer-list-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [timer-list-mode-abbrev-table timer-list-mode-map variable-documentation put purecopy "Keymap for `timer-list-mode'." boundp timer-list-mode-syntax-table definition-name timer-list-mode (lambda (#1=#:def-tmp-var) (defvar timer-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `timer-list-mode'." (lambda (#1#) (defvar timer-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `timer-list-mode'." derived-mode-parent special-mode] 5)
#@243 Mode for listing and controlling timers.

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `timer-list-mode-hook', as the final or penultimate step
during initialization.

\{timer-list-mode-map}
(defalias 'timer-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
)=\204R\326
\325)C#\210\327!\210\330\f!\210
)\331*\307+\332 \210\306\333!\210\334\307,\335\336\337\340#\341\342\343\344\345\346%P-)\347\350!\207" [delay-mode-hooks major-mode mode-name timer-list-mode-map timer-list-mode-syntax-table timer-list-mode-abbrev-table make-local-variable t special-mode timer-list-mode "Timer-List" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table left-to-right buffer-disable-undo revert-buffer-function list-timers propertize " " display (space :align-to 0) format "%4s %10s %8s %s" "Idle" "Next" "Repeat" "Function" run-mode-hooks timer-list-mode-hook local-abbrev-table bidi-paragraph-direction truncate-lines buffer-read-only header-line-format] 7 (#$ . 2755) nil])
#@43 Cancel the timer on the line under point.
(defalias 'timer-list-cancel #[0 "\301\302 \303\"\304\211\204\305\306!\210\307
!\210\302 \302\310!|)\207" [inhibit-read-only get-text-property line-beginning-position timer t error "No timer on the current line" cancel-timer 2] 4 (#$ . 4088) nil])
(provide 'timer-list)