[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.71 emacs/lisp/progmodes/gdb-ui.el:1.72
*** emacs/lisp/progmodes/gdb-ui.el:1.71 Thu May 26 12:41:35 2005
--- emacs/lisp/progmodes/gdb-ui.el      Fri May 27 20:56:43 2005
***************
*** 1659,1671 ****
  
  ;; Registers buffer.
  ;;
  (gdb-set-buffer-rules 'gdb-registers-buffer
                      'gdb-registers-buffer-name
                      'gdb-registers-mode)
  
  (def-gdb-auto-updated-buffer gdb-registers-buffer
    gdb-invalidate-registers
!   (concat gdb-server-prefix "info registers\n")
    gdb-info-registers-handler
    gdb-info-registers-custom)
  
--- 1659,1678 ----
  
  ;; Registers buffer.
  ;;
+ (defcustom gdb-all-registers nil
+   "Non-nil means include floating-point registers."
+   :type 'boolean
+   :group 'gud
+   :version "22.1")
+ 
  (gdb-set-buffer-rules 'gdb-registers-buffer
                      'gdb-registers-buffer-name
                      'gdb-registers-mode)
  
  (def-gdb-auto-updated-buffer gdb-registers-buffer
    gdb-invalidate-registers
!   (concat
!    gdb-server-prefix "info " (if gdb-all-registers "all-") "registers\n")
    gdb-info-registers-handler
    gdb-info-registers-custom)
  
***************
*** 1674,1679 ****
--- 1681,1687 ----
  (defvar gdb-registers-mode-map
    (let ((map (make-sparse-keymap)))
      (suppress-keymap map)
+     (define-key map " " 'toggle-gdb-all-registers)
      (define-key map "q" 'kill-this-buffer)
       map))
  
***************
*** 1683,1689 ****
  \\{gdb-registers-mode-map}"
    (kill-all-local-variables)
    (setq major-mode 'gdb-registers-mode)
!   (setq mode-name "Registers")
    (setq buffer-read-only t)
    (use-local-map gdb-registers-mode-map)
    (run-mode-hooks 'gdb-registers-mode-hook)
--- 1691,1697 ----
  \\{gdb-registers-mode-map}"
    (kill-all-local-variables)
    (setq major-mode 'gdb-registers-mode)
!   (setq mode-name "Registers:")
    (setq buffer-read-only t)
    (use-local-map gdb-registers-mode-map)
    (run-mode-hooks 'gdb-registers-mode-hook)
***************
*** 1706,1711 ****
--- 1714,1733 ----
        (special-display-frame-alist gdb-frame-parameters))
      (display-buffer (gdb-get-create-buffer 'gdb-registers-buffer))))
  
+ (defun toggle-gdb-all-registers ()
+   "Toggle the display of floating-point registers."
+   (interactive)
+   (if gdb-all-registers
+       (progn
+       (setq gdb-all-registers nil)
+       (with-current-buffer (gdb-get-buffer 'gdb-registers-buffer)
+         (setq mode-name "Registers:")))
+       (setq gdb-all-registers t)
+       (with-current-buffer (gdb-get-buffer 'gdb-registers-buffer)
+         (setq mode-name "Registers:All")))
+   (gdb-invalidate-registers))
+ 
+ 
  ;; Memory buffer.
  ;;
  (defcustom gdb-memory-repeat-count 32