%PDF-
%PDF-
Mini Shell
Mini Shell
;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!\205 r\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\266A\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! \211A\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)
Zerion Mini Shell 1.0