comparison lisp/progmodes/gud.el @ 69476:1db3b0eac5a2

(gud-speedbar-buttons): Follow change to gdb-var-list.

69475:3f8495af82a4

				     '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
    ([down]	menu-item "Down Stack" gud-down
		  :enable (and (not gud-running)
			       (memq gud-minor-mode
				     '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
    ([pp]	menu-item "Print the emacs s-expression" gud-pp
                  :enable (and (not gud-running)
				  gdb-active-process)
		  :visible (and (string-equal
				 (buffer-local-value
				  'gud-target-name gud-comint-buffer) "emacs")

		     (gud-pp . "gud/pp")
		     (gud-watch . "gud/watch")
		     (gud-run . "gud/run")
		     (gud-go . "gud/go")
		     (gud-stop-subjob . "gud/stop")
		     ;; gud-s, gud-si etc. instead of gud-step,
		     ;; gud-stepi, to avoid file-name clashes on DOS
		     ;; 8+3 filesystems.
		     (gud-cont . "gud/cont")
		     (gud-until . "gud/until")
		     (gud-next . "gud/next")
		     (gud-step . "gud/step")
		     (gud-finish . "gud/finish")

	  (if gdb-speedbar-auto-raise
	      (raise-frame speedbar-frame))
	  (let ((var-list gdb-var-list) parent)
	    (while var-list
	      (let* (char (depth 0) (start 0) (var (car var-list))
			  (expr (car var)) (varnum (nth 1 var))
			  (type (nth 3 var)) (value (nth 4 var))
			  (status (nth 5 var)))
		(put-text-property
		 0 (length expr) 'face font-lock-variable-name-face expr)
		(put-text-property

				      (out-of-scope 'shadow)
				      (t t)))
		       t)
		     depth)
		  (if (eq status 'out-of-scope) (setq parent 'shadow))
		  (if (and (cadr var-list)
			   (string-match (concat varnum "\\.")
					 (cadr (cadr var-list))))
		      (setq char ?-)
		    (setq char ?+))
		  (if (string-match "\\*$" type)
		      (speedbar-make-tag-line
		       'bracket char

69476:1db3b0eac5a2

				     '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
    ([down]	menu-item "Down Stack" gud-down
		  :enable (and (not gud-running)
			       (memq gud-minor-mode
				     '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
    ([pp]	menu-item "Print S-expression" gud-pp
                  :enable (and (not gud-running)
				  gdb-active-process)
		  :visible (and (string-equal
				 (buffer-local-value
				  'gud-target-name gud-comint-buffer) "emacs")

		     (gud-pp . "gud/pp")
		     (gud-watch . "gud/watch")
		     (gud-run . "gud/run")
		     (gud-go . "gud/go")
		     (gud-stop-subjob . "gud/stop")
		     (gud-cont . "gud/cont")
		     (gud-until . "gud/until")
		     (gud-next . "gud/next")
		     (gud-step . "gud/step")
		     (gud-finish . "gud/finish")

	  (if gdb-speedbar-auto-raise
	      (raise-frame speedbar-frame))
	  (let ((var-list gdb-var-list) parent)
	    (while var-list
	      (let* (char (depth 0) (start 0) (var (car var-list))
			  (varnum (car var)) (expr (nth 1 var))
			  (type (nth 3 var)) (value (nth 4 var))
			  (status (nth 5 var)))
		(put-text-property
		 0 (length expr) 'face font-lock-variable-name-face expr)
		(put-text-property

				      (out-of-scope 'shadow)
				      (t t)))
		       t)
		     depth)
		  (if (eq status 'out-of-scope) (setq parent 'shadow))
		  (if (and (nth 1 var-list)
			   (string-match (concat varnum "\\.")
					 (car (nth 1 var-list))))
		      (setq char ?-)
		    (setq char ?+))
		  (if (string-match "\\*$" type)
		      (speedbar-make-tag-line
		       'bracket char