aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/gdb-ui.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index cbff1835ca6..4340892a9cc 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -796,7 +796,12 @@ type=\"\\(.*?\\)\"")
796 (concat "server interpreter mi \"-var-assign " 796 (concat "server interpreter mi \"-var-assign "
797 varnum " " value "\"\n") 797 varnum " " value "\"\n")
798 (concat "-var-assign " varnum " " value "\n")) 798 (concat "-var-assign " varnum " " value "\n"))
799 'ignore)))) 799 `(lambda () (gdb-edit-value-handler ,value))))))
800
801(defun gdb-edit-value-handler (value)
802 (goto-char (point-min))
803 (if (re-search-forward gdb-error-regexp nil t)
804 (message-box "Invalid number or expression (%s)" value)))
800 805
801(defcustom gdb-show-changed-values t 806(defcustom gdb-show-changed-values t
802 "If non-nil change the face of out of scope variables and changed values. 807 "If non-nil change the face of out of scope variables and changed values.