mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(gdb-max-children): New customizable variable.

Browse Source 
(gdb-speedbar-expand-node): Ask user for confirmation before expanding
large structures/arrays.
This commit is contained in:
Nick Roberts 2007-01-05 04:20:20 +00:00
parent 10dc9f9eba
commit e1204172ce
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -896,6 +896,12 @@ Changed values are highlighted with the face `font-lock-warning-face'."
:group 'gud
:version "22.1")
(defcustom gdb-max-children 40
"Maximum number of children allowed before Emacs asks"
:type 'integer
:group 'gud
:version "22.1")
(defun gdb-speedbar-expand-node (text token indent)
"Expand the node the user clicked on.
TEXT is the text of the button we clicked on, a + or - item.
@ -904,11 +910,17 @@ INDENT is the current indentation depth."
(if (and gud-comint-buffer (buffer-name gud-comint-buffer))
(progn
(cond ((string-match "+" text) ;expand this node
(if (and (eq (buffer-local-value
'gud-minor-mode gud-comint-buffer) 'gdba)
(string-equal gdb-version "pre-6.4"))
(gdb-var-list-children token)
(gdb-var-list-children-1 token)))
(let* ((var (assoc token gdb-var-list))
(expr (nth 1 var)) (children (nth 2 var)))
(if (or (<= (string-to-number children) gdb-max-children)
(y-or-n-p
(format
"%s has %s children. Continue? " expr children)))
(if (and (eq (buffer-local-value
'gud-minor-mode gud-comint-buffer) 'gdba)
(string-equal gdb-version "pre-6.4"))
(gdb-var-list-children token)
(gdb-var-list-children-1 token)))))
((string-match "-" text) ;contract this node
(dolist (var gdb-var-list)
(if (string-match (concat token "\\.") (car var))