# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1146615455 0
# Node ID 8e55901472d649c35ce2f012e7e6382e262c6343
# Parent  b78699e9fbbddcd49f0a6cc91a8d04f1a6ac9e7e
(gud-watch): Let user select an expression.
(menu): Fix typo.

diff -r b78699e9fbbd -r 8e55901472d6 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed May 03 00:16:17 2006 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed May 03 00:17:35 2006 +0000
@@ -690,10 +690,13 @@
 	  (if event (posn-set-point (event-end event)))
 	  (require 'tooltip)
 	  (save-selected-window
-	    (let ((expr (if arg
-			    (completing-read "Name of variable: "
-					     'gud-gdb-complete-command)
-			  (tooltip-identifier-from-point (point)))))
+	    (let ((expr
+		   (if arg
+		       (completing-read "Name of variable: "
+					'gud-gdb-complete-command)
+		     (if (and transient-mark-mode mark-active)
+			 (buffer-substring (region-beginning) (region-end))
+		       (tooltip-identifier-from-point (point))))))
 	      (catch 'already-watched
 		(dolist (var gdb-var-list)
 		  (unless (string-match "\\." (car var))
@@ -2691,7 +2694,7 @@
     '(menu-item "Inferior IO" gdb-frame-separate-io-buffer
 		:enable gdb-use-separate-io-buffer))
   (define-key menu [registers] '("Registers" . gdb-frame-registers-buffer))
-  (define-key menu [disassembly] '("Disassembiy" . gdb-frame-assembler-buffer))
+  (define-key menu [disassembly] '("Disassembly" . gdb-frame-assembler-buffer))
   (define-key menu [breakpoints]
     '("Breakpoints" . gdb-frame-breakpoints-buffer))
   (define-key menu [locals] '("Locals" . gdb-frame-locals-buffer))