From: Masatake YAMATO <jet@gyve.org>
Cc: emacs-devel@gnu.org
Subject: Re: Toggle view in gdba
Date: Wed, 20 Oct 2004 01:21:58 +0900 (JST) [thread overview]
Message-ID: <20041020.012158.92573776.jet@gyve.org> (raw)
In-Reply-To: <16756.62414.504591.39527@farnswood.snap.net.nz>
Hi,
> Actually I think it would be better not to use any of these keybindings.
> Gud-watch doesn't have a keybindings and I've just remembered why: these
> commands are really GDB specific and don't work for "gdb -fullname", perldb,
> pdb etc. Once GDB-UI has been invoked these keybindings are set for all the
> other debugger modes. As recent discussion has shown, there are still problems
> with GDB-UI so I don't want to interfere with these other modes, particularly
> the original gdb mode.
Is it ok if the key bindings are not propagated to the other modes (and global-map)?
Experimentally, I added new a argument LOCAL to gud-def and added line
(use-local-map (copy-keymap (current-local-map)))
to `gdb-ann3'.
Index: lisp/progmodes/gud.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.26
diff -u -r1.26 gud.el
--- lisp/progmodes/gud.el 13 Oct 2004 16:32:41 -0000 1.26
+++ lisp/progmodes/gud.el 19 Oct 2004 16:18:02 -0000
@@ -220,7 +220,7 @@
;; major mode. The function is also bound in the global keymap with the
;; GUD prefix.
-(defmacro gud-def (func cmd key &optional doc)
+(defmacro gud-def (func cmd key &optional doc local)
"Define FUNC to be a command sending STR and bound to KEY, with
optional doc string DOC. Certain %-escapes in the string arguments
are interpreted specially if present. These are:
@@ -247,7 +247,7 @@
`(gud-call ,cmd arg)
cmd))
,(if key `(local-set-key ,(concat "\C-c" key) ',func))
- ,(if key `(global-set-key (vconcat gud-key-prefix ,key) ',func))))
+ ,(if (and key (not local)) `(global-set-key (vconcat gud-key-prefix ,key) ',func))))
;; Where gud-display-frame should put the debugging arrow; a cons of
;; (filename . line-number). This is set by the marker-filter, which scans
Index: lisp/progmodes/gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.24
diff -u -r1.24 gdb-ui.el
--- lisp/progmodes/gdb-ui.el 6 Oct 2004 07:20:53 -0000 1.24
+++ lisp/progmodes/gdb-ui.el 19 Oct 2004 16:18:02 -0000
@@ -169,15 +169,46 @@
(forward-char 2)
(gud-call "until *%a" arg)))
"\C-u" "Continue to current line or address.")
-
+ ;;
(define-key gud-minor-mode-map [left-margin mouse-1]
'gdb-mouse-toggle-breakpoint)
(define-key gud-minor-mode-map [left-fringe mouse-1]
'gdb-mouse-toggle-breakpoint)
+ ;; Don't propagate key defs to other than gdba mode.
+ (use-local-map (copy-keymap (current-local-map)))
+ (gud-def gud-toggle-view (cond
+ ((eq gdb-selected-view 'assembler)
+ (gdb-view-source-function))
+ ((eq gdb-selected-view 'source)
+ (gdb-view-assembler)))
+ "\C-v\C-v" "Toggle source and assembler view."
+ 'local)
+ (gud-def gud-display-gdb-buffer (gdb-display-gdb-buffer)
+ "\C-vg" "Display GUD buffer."
+ 'local)
+ (gud-def gud-display-assembler-buffer (gdb-display-assembler-buffer)
+ "\C-va" "Display disassembly view."
+ 'local)
+ (gud-def gud-display-threads-buffer (gdb-display-threads-buffer)
+ "\C-vt" "Display IDs of currently known threads."
+ 'local)
+ (gud-def gud-display-registers-buffer (gdb-display-registers-buffer)
+ "\C-vr" "Display integer register contents."
+ 'local)
+ (gud-def gud-display-locals-buffer (gdb-display-locals-buffer)
+ "\C-vl" "Display local variables of current stack and their values."
+ 'local)
+ (gud-def gud-display-stack-buffer (gdb-display-stack-buffer)
+ "\C-vs" "Display backtrace of current stack."
+ 'local)
+ (gud-def gud-display-breakpoints-buffer (gdb-display-breakpoints-buffer)
+ "\C-vb" "Display status of user-settable breakpoints."
+ 'local)
+
(setq comint-input-sender 'gdb-send)
;;
- ;; (re-)initialise
+ ;; (re-)initialize
(setq gdb-current-address "main")
(setq gdb-previous-address nil)
(setq gdb-previous-frame nil)
next prev parent reply other threads:[~2004-10-19 16:21 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-10-17 15:24 Toggle view in gdba Masatake YAMATO
2004-10-18 1:49 ` Nick Roberts
2004-10-19 2:05 ` Masatake YAMATO
2004-10-19 11:00 ` Nick Roberts
2004-10-19 16:21 ` Masatake YAMATO [this message]
2004-10-23 8:01 ` Masatake YAMATO
2004-10-23 14:24 ` Stefan
2004-10-23 21:57 ` Nick Roberts
2004-10-24 20:38 ` Nick Roberts
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20041020.012158.92573776.jet@gyve.org \
--to=jet@gyve.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).