From 9d6bb9e0af2671a4deca1509f4a2d5655400f67a Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 3 May 2006 00:17:35 +0000 Subject: (gud-watch): Let user select an expression. (menu): Fix typo. --- lisp/progmodes/gdb-ui.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'lisp/progmodes/gdb-ui.el') diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index a5163319fbf..4b3202c6e41 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -690,10 +690,13 @@ With arg, enter name of variable to be watched in the minibuffer." (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 @@ corresponding to the mode line clicked." '(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)) -- cgit v1.2.3