Re: Toggle view in gdba

[Nick Roberts <nickrob@snap.net.nz>]

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.

Nick

 > How about next patch?
 > \C-c\C-v is used as a prefix key view and display switch commands.
 > 
 > Masatake YAMATO
 > 
 > 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 02:06:25 -0000
 > @@ -169,7 +169,28 @@
 >  			  (forward-char 2)
 >  			  (gud-call "until *%a" arg)))
 >  	   "\C-u" "Continue to current line or address.")
 > -
 > +  ;;
 > +  (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.")
 > +  (gud-def gud-display-gdb-buffer (gdb-display-gdb-buffer)
 > +	   "\C-vg" "Display GUD buffer.")    
 > +  (gud-def gud-display-assembler-buffer (gdb-display-assembler-buffer)
 > +	   "\C-va" "Display disassembly view.")
 > +  (gud-def gud-display-threads-buffer (gdb-display-threads-buffer)
 > +	   "\C-vt" "Display IDs of currently known threads.")
 > +  (gud-def gud-display-registers-buffer (gdb-display-registers-buffer)
 > +	   "\C-vr" "Display integer register contents.")
 > +  (gud-def gud-display-locals-buffer (gdb-display-locals-buffer)
 > +	   "\C-vl" "Display local variables of current stack and their values.")
 > +  (gud-def gud-display-stack-buffer (gdb-display-stack-buffer)
 > +	   "\C-vs" "Display backtrace of current stack.")
 > +  (gud-def gud-display-breakpoints-buffer (gdb-display-breakpoints-buffer)
 > +	   "\C-vb" "Display status of user-settable breakpoints.")
 > +			     
 >    (define-key gud-minor-mode-map [left-margin mouse-1]
 >      'gdb-mouse-toggle-breakpoint)
 >    (define-key gud-minor-mode-map [left-fringe mouse-1]