(gdb-put-breakpoint-icon): Add help-echo for

breakpoint image symbol in margin.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index ad081c2ac9ec69e47fecc0072e69aeb47b11a761..993d440cd0cc08281d71b9d9f24d7728c81ad545 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1836,6 +1836,9 @@ BUFFER nil or omitted means use the current buffer."
   (let ((start (progn (beginning-of-line) (- (point) 1)))
        (end (progn (end-of-line) (+ (point) 1)))
        (putstring (if enabled "B" "b")))
+    (add-text-properties
+     0 1 '(help-echo "mouse-1: set/clear bkpt, mouse-3: enable/disable bkpt")
+     putstring)
     (if enabled (add-text-properties
                 0 1 `(gdb-bptno ,bptno gdb-enabled t) putstring)
       (add-text-properties