diff options
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 7 |
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. |