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:
parent
d576b11eea
commit
3360c5373d
2 changed files with 34 additions and 0 deletions
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue