From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 25 Oct 2005 01:18:56 +0000 (+0000)
Subject: (gdb-put-breakpoint-icon): Correct help-echo.
X-Git-Tag: emacs-pretest-22.0.90~6312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d12d5866fcfe4c4c1b8aa9aa34eb7cee58fac3fa;p=emacs.git

(gdb-put-breakpoint-icon): Correct help-echo.
Display hand pointer and help-echo on disabled icon too.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 61b537bfc44..dae1b3e811b 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -2515,7 +2515,7 @@ BUFFER nil or omitted means use the current buffer."
 	(putstring (if enabled "B" "b"))
 	(source-window (get-buffer-window (current-buffer) 0)))
     (add-text-properties
-     0 1 '(help-echo "mouse-1: set/clear bkpt, mouse-3: enable/disable bkpt")
+     0 1 '(help-echo "mouse-1: clear bkpt, mouse-3: enable/disable bkpt")
      putstring)
     (if enabled
 	(add-text-properties
@@ -2557,10 +2557,10 @@ BUFFER nil or omitted means use the current buffer."
 		       (find-image `((:type xpm :data
 					    ,breakpoint-xpm-data
 					    :conversion disabled
-					    :ascent 100)
+					    :ascent 100 :pointer hand)
 				     (:type pbm :data
 					    ,breakpoint-disabled-pbm-data
-					    :ascent 100))))))
+					    :ascent 100 :pointer hand))))))
 	   (+ start 1)
 	   putstring
 	   'left-margin))