From: Uwe B. <ou...@ma...> - 2019-04-10 13:15:29
|
Hi The following code sort of works, it is not nice, comments are very welcome (require 'gdb-mi) (setq default-text-properties '(foo 1111)) (defun my-gud-set-breakpoint-with-icon () "Set Breakpoint and indicate on Editor" (interactive) (gud-break 1) (gdb-put-breakpoint-icon "false" (get-text-property 1 'foo))) (defun my-gud-remove-breakpoint-with-icons () (interactive) (gud-remove 1) (move-beginning-of-line 1) (mark-end-of-line 1) (gdb-remove-breakpoint-icons (region-beginning) (region-end))) |