;;;###autoload
(defalias 'gdba 'gdb)
+(defgroup gdb nil
+ "Gdb Graphical Mode options specifically for running Gdb in Emacs."
+ :group 'processes
+ :group 'tools)
+
(defcustom gdb-debug-log-max 128
"Maximum size of `gdb-debug-log'. If nil, size is unlimited."
- :group 'gud
+ :group 'gdb
:type '(choice (integer :tag "Number of elements")
(const :tag "Unlimited" nil))
:version "22.1")
(defcustom gdb-enable-debug nil
"Non-nil means record the process input and output in `gdb-debug-log'."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-cpp-define-alist-program "gcc -E -dM -"
Set `gdb-cpp-define-alist-flags' for any include paths or
predefined macros."
:type 'string
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-cpp-define-alist-flags ""
"Preprocessor flags for `gdb-cpp-define-alist-program'."
:type 'string
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-show-main nil
"Non-nil means display source file containing the main routine at startup.
Also display the main routine in the disassembly buffer if present."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-many-windows nil
of the debugged program. Non-nil means display the layout shown
for `gdba'."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-use-separate-io-buffer nil
"Non-nil means display output from the debugged program in a separate buffer."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defun gdb-force-mode-line-update (status)
"If non-nil raise speedbar every time display of watch expressions is\
updated."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defun gdb-speedbar-auto-raise (arg)
(defcustom gdb-use-colon-colon-notation nil
"If non-nil use FUN::VAR format to display variables in the speedbar."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(define-key gud-minor-mode-map "\C-c\C-w" 'gud-watch)
Out of scope variables are suppressed with `shadow' face.
Changed values are highlighted with the face `font-lock-warning-face'."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-max-children 40
"Maximum number of children before expansion requires confirmation."
:type 'integer
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-delete-out-of-scope t
"If non-nil delete watch expressions automatically when they go out of scope."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.2")
(defun gdb-speedbar-expand-node (text token indent)
(defcustom gdb-same-frame focus-follows-mouse
"Non-nil means pop up GUD buffer in same frame."
- :group 'gud
+ :group 'gdb
:type 'boolean
:version "22.1")
(defcustom gdb-find-source-frame nil
"Non-nil means try to find a source frame further up stack e.g after signal."
- :group 'gud
+ :group 'gdb
:type 'boolean
:version "22.1")
:foreground "red1"
:weight bold))
"Face for enabled breakpoint icon in fringe."
- :group 'gud)
+ :group 'gdb)
(defface breakpoint-disabled
'((((class color) (min-colors 88)) :foreground "grey70")
:inverse-video t)
(t :background "gray"))
"Face for disabled breakpoint icon in fringe."
- :group 'gud)
+ :group 'gdb)
(defconst gdb-breakpoint-regexp
"\\(?:\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\|\\([0-9]+\\.[0-9]+\\)\\)\\s-+\\(.\\)\\s-+")
(defcustom gdb-max-frames 40
"Maximum number of frames displayed in call stack."
:type 'integer
- :group 'gud
+ :group 'gdb
:version "22.1")
(gdb-set-buffer-rules 'gdb-stack-buffer
(defcustom gdb-all-registers nil
"Non-nil means include floating-point registers."
:type 'boolean
- :group 'gud
+ :group 'gdb
:version "22.1")
(gdb-set-buffer-rules 'gdb-registers-buffer
(defcustom gdb-memory-repeat-count 32
"Number of data items in memory window."
:type 'integer
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-memory-format "x"
(const :tag "Unsigned decimal" "u")
(const :tag "Octal" "o")
(const :tag "Binary" "t"))
- :group 'gud
+ :group 'gdb
:version "22.1")
(defcustom gdb-memory-unit "w"
(const :tag "Halfword" "h")
(const :tag "Word" "w")
(const :tag "Giant word" "g"))
- :group 'gud
+ :group 'gdb
:version "22.1")
(gdb-set-buffer-rules 'gdb-memory-buffer
(define-key gud-menu-map [ui]
`(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
+ (define-key menu [gdb-customize]
+ '(menu-item "Customize" (lambda () (interactive) (customize-group 'gdb))
+ :help "Customize Gdb Graphical Mode options."))
(define-key menu [gdb-find-source-frame]
'(menu-item "Look For Source Frame" gdb-find-source-frame
:visible (eq gud-minor-mode 'gdba)