mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

(gud-watch): Let user select an expression.

Browse Source 
(menu): Fix typo.
This commit is contained in:
Nick Roberts 2006-05-03 00:17:35 +00:00
parent cea3f866ce
commit 9d6bb9e0af
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/progmodes/gdb-ui.el
View File

@ -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))