%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/ |
Current File : //usr/local/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\210A\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)