1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00

Add a igc-describe-arena command

* src/igc.c (Figc__describe_arena): New wrapper for ArenaDescribe.
(syms_of_igc): Register it.
* lisp/emacs-lisp/igc.el (igc-describe-arena): New command.
This commit is contained in:
Helmut Eller 2025-10-04 17:33:10 +02:00
parent d576b11eea
commit 3360c5373d
2 changed files with 34 additions and 0 deletions

View file

@ -543,6 +543,15 @@ This function is called from a timer; see `igc-start-collecting-stats'."
(* igc--idle-delay (ash 1 repetition)))
nil #'igc--on-idle state (1+ repetition)))))))))
(defun igc-describe-arena ()
"Describe MPS internals in a separate window."
(interactive)
(with-output-to-temp-buffer "*Arena*"
(with-current-buffer standard-output
(insert (igc--describe-arena))
(setq truncate-lines t))))
(provide 'igc)
;;; igc.el ends here.