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

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


(require 'backtrace)
#@132 Handle thread events, propagated by `thread-signal'.
An EVENT has the format
  (thread-event THREAD ERROR-SYMBOL DATA)

(fn EVENT)
(defalias 'thread-handle-event #[257 "\211:\205 \211@\300=\205 \211G\301U\205 \211A@
AA\302\303#\266\202\207" [thread-event 4 message "Error %s: %S"] 7 (#$ . 430) "e"])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\303&	\207" [make-obsolete thread-alive-p thread-live-p "27.1" custom-declare-variable thread-list-refresh-seconds funcall function #[0 "\300\207" [0.5] 1] "Seconds between automatic refreshes of the *Threads* buffer." :group thread-list :type number :version] 10)
#@46 Local keymap for `thread-list-mode' buffers.
(defvar thread-list-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\314\307\315\316$\210\211\207" [tabulated-list-mode-map make-sparse-keymap set-keymap-parent define-key "b" thread-list-pop-to-backtrace "s" nil "sq" thread-list-send-quit-signal "se" thread-list-send-error-signal easy-menu-do-define "" ("Threads" ["Show backtrace" thread-list-pop-to-backtrace t] ["Send Quit Signal" thread-list-send-quit-signal t] ["Send Error Signal" thread-list-send-error-signal t])] 6) (#$ . 1085))
(defvar thread-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" [thread-list-mode-hook variable-documentation put "Hook run after entering Thread-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 thread-list-mode-map definition-name thread-list-mode] 4)
(defvar thread-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" [thread-list-mode-abbrev-table thread-list-mode-map variable-documentation put purecopy "Keymap for `thread-list-mode'." boundp thread-list-mode-syntax-table definition-name thread-list-mode (lambda (#1=#:def-tmp-var) (defvar thread-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `thread-list-mode'." (lambda (#1#) (defvar thread-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `thread-list-mode'." derived-mode-parent tabulated-list-mode] 5)
#@251 Major mode for monitoring Lisp threads.

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

\{thread-list-mode-map}
(defalias 'thread-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\211!\332H@\333B\"\334#\335 \210)\336\337!\207" [delay-mode-hooks major-mode mode-name thread-list-mode-map thread-list-mode-syntax-table thread-list-mode-abbrev-table make-local-variable t tabulated-list-mode thread-list-mode "Thread-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 [("Thread Name" 20 t) ("Status" 10 t) ("Blocked On" 30 t)] 0 nil thread-list--get-entries tabulated-list-init-header run-mode-hooks thread-list-mode-hook local-abbrev-table tabulated-list-format tabulated-list-sort-key tabulated-list-entries] 6 (#$ . 2913) nil])
#@28 Display a list of threads.
(defalias 'list-threads #[0 "\302\300!\203\n\204\303\304!\210\305\306!r\211q\210\307\310!\204%\310 \210\311	\312\313$\210\314 \210)\315
!\207" [main-thread thread-list-refresh-seconds boundp error "Threads are not supported in this configuration" get-buffer-create "*Threads*" derived-mode-p thread-list-mode run-at-time nil thread-list--timer-func revert-buffer switch-to-buffer] 6 (#$ . 4155) nil])
#@60 Revert BUFFER and set a timer to do it again.

(fn BUFFER)
(defalias 'thread-list--timer-func #[257 "\301
!\205r\211q\210\302 \210)\303\304\305$\207" [thread-list-refresh-seconds buffer-live-p revert-buffer run-at-time nil thread-list--timer-func] 6 (#$ . 4595)])
#@63 Return tabulated list entries for the currently live threads.
(defalias 'thread-list--get-entries #[0 "\300\301 \211\203/\211@\302
!\211@
A\211@
A
\303\304\n!#D\nB\262\n\266
A\266\202\202\210\211\207" [nil all-threads thread-list--get-status vector thread-list--name] 15 (#$ . 4869)])
#@154 Describe the status of THREAD.
Return a list of two strings, one describing THREAD's status, the
other describing THREAD's blocker, if any.

(fn THREAD)
(defalias 'thread-list--get-status #[257 "\300
!\204\301\207\211\302 =\203\303\207\304
!\211\203 \305\306!D\202!\307\207" [thread-live-p ("Finished" #1="") current-thread ("Running" #1#) thread--blocker "Blocked" prin1-to-string ("Yielded" #1#)] 5 (#$ . 5172)])
#@44 Send a quit signal to the thread at point.
(defalias 'thread-list-send-quit-signal #[0 "\300\301!\207" [thread-list--send-signal quit] 2 (#$ . 5600) nil])
#@46 Send an error signal to the thread at point.
(defalias 'thread-list-send-error-signal #[0 "\300\301!\207" [thread-list--send-signal error] 2 (#$ . 5761) nil])
#@119 Send the specified SIGNAL to the thread at point.
Ask for user confirmation before signaling the thread.

(fn SIGNAL)
(defalias 'thread-list--send-signal #[257 "\300\301
\206`\302\"\262
\303
!\203/\304\305\306#!\2052\303
!\203)\307
\300#\2022\310\311!\2022\310\311!\207" [nil get-text-property tabulated-list-id thread-live-p y-or-n-p format "Send %s signal to %s? " thread-signal message "This thread is no longer alive"] 7 (#$ . 5927)])
#@60 Thread whose backtrace is displayed in the current buffer.
(defvar thread-list-backtrace--thread nil (#$ . 6382))
(make-variable-buffer-local 'thread-list-backtrace--thread)
#@48 Display the backtrace for the thread at point.
(defalias 'thread-list-pop-to-backtrace #[0 "\302\303
\206`\304\"\262
\305
!\2037\306\307!\310
!\210\311\312!\204(\312 \210\313\314\315\"\210\316
\315 \210\317 \210eb\262
\202:\320\321!\207" [backtrace-insert-header-function thread-list-backtrace--thread nil get-text-property tabulated-list-id thread-live-p get-buffer-create "*Thread Backtrace*" pop-to-buffer derived-mode-p backtrace-mode add-hook backtrace-revert-hook thread-list-backtrace--revert-hook-function thread-list-backtrace--insert-header backtrace-print message "This thread is no longer alive"] 5 (#$ . 6562) nil])
(defalias 'thread-list-backtrace--revert-hook-function #[0 "\302!\205\f\303\304\305!\"\211\207" [thread-list-backtrace--thread backtrace-frames thread-live-p mapcar thread-list--make-backtrace-frame backtrace--frames-from-thread] 4])
#@31 

(fn (EVALD FUN &rest ARGS))
(defalias 'thread-list--make-backtrace-frame #[128 "\211G\300U\203\f\211@\202\301\302\303GD\"\211A\203!\211
A\262\242\202(\301\302\303GD\"
\211A\262\242\304\305\306\211\211\211&\207" [1 signal wrong-number-of-arguments thread-list--make-backtrace-frame record backtrace-frame nil] 13 (#$ . 7442)])
(defalias 'thread-list-backtrace--insert-header #[0 "\301!\302!\203\303\304!c\210\211c\210\303\305!c\202$\303\306!c\210\211c\210\303\307!c\207" [thread-list-backtrace--thread thread-list--name thread-live-p substitute-command-keys "Backtrace for thread `" "':\n" "Thread `" "' is no longer running\n"] 3])
#@15 

(fn THREAD)
(defalias 'thread-list--name #[257 "\301
!\206\211=\203\302\207\303
!\207" [main-thread thread-name "Main" prin1-to-string] 3 (#$ . 8101)])
(provide 'thread)