[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el,v |
Date: |
Thu, 31 Jan 2008 11:35:47 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/01/31 11:35:46
Index: lisp/progmodes/gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -b -r1.219 -r1.220
--- lisp/progmodes/gdb-ui.el 29 Jan 2008 06:54:30 -0000 1.219
+++ lisp/progmodes/gdb-ui.el 31 Jan 2008 11:35:43 -0000 1.220
@@ -891,8 +891,17 @@
(concat "server interpreter mi \"-var-set-format "
varnum " " format "\"\n")
(concat "-var-set-format " varnum " " format "\n"))
- 'ignore))
- (gdb-var-update-1)))
+ `(lambda () (gdb-var-set-format-handler ,varnum))))))
+
+(defconst gdb-var-set-format-regexp
+ "format=\"\\(.*?\\)\",.*value=\"\\(.*?\\)\"")
+
+(defun gdb-var-set-format-handler (varnum)
+ (goto-char (point-min))
+ (if (re-search-forward gdb-var-set-format-regexp nil t)
+ (let ((var (assoc varnum gdb-var-list)))
+ (setcar (nthcdr 4 var) (match-string 2))
+ (gdb-var-update-1))))
(defun gdb-var-delete-1 (varnum)
(gdb-enqueue-input