procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Print records inside data-debug

Browse source 
* lisp/cedet/data-debug.el
(data-debug-insert-stuff-record-button): New function.
(data-debug-thing-alist): Register new function.
This commit is contained in:
Po Lu 2024-04-05 14:07:44 +08:00
parent c57b50569c
commit 7a13d012c8
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/cedet/data-debug.el
View file

@ -598,6 +598,29 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button."
)
)
(defun data-debug-insert-stuff-record-button (stuffvector
prefix
prebuttontext)
"Insert a button representing STUFFVECTOR.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff vector button."
(let* ((start (point))
(end nil)
(str (format "#<record o' stuff: %d entries>" (length stuffvector)))
(tip str))
(insert prefix prebuttontext str)
(setq end (point))
(put-text-property (- end (length str)) end 'face 'font-lock-variable-name-face)
(put-text-property start end 'ddebug stuffvector)
(put-text-property start end 'ddebug-indent (length prefix))
(put-text-property start end 'ddebug-prefix prefix)
(put-text-property start end 'help-echo tip)
(put-text-property start end 'ddebug-function
'data-debug-insert-stuff-vector-from-point)
(insert "\n")
)
)
;;; Symbol
;;
@ -781,6 +804,9 @@ FACE is the face to use."
;; Vector of stuff
(vectorp . data-debug-insert-stuff-vector-button)
;; Record of stuff
(recordp . data-debug-insert-stuff-record-button)
)
"Alist of methods used to insert things into an Ddebug buffer.")