From a090e5fe0855587fd122151794757dbf04dc7c73 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 22 Oct 2020 18:26:24 +0200 Subject: [PATCH] Remove useless uses of bindat-get-field * lisp/progmodes/gdb-mi.el (gdb-var-list-children-handler) (gdb-edit-register-value): bindat-get-field with a single argument is identity; remove. --- lisp/progmodes/gdb-mi.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 79df97080df..9e8af84a600 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -1317,7 +1317,7 @@ With arg, enter name of variable to be watched in the minibuffer." (defun gdb-var-list-children-handler (varnum) (let* ((var-list nil) - (output (bindat-get-field (gdb-json-partial-output "child"))) + (output (gdb-json-partial-output "child")) (children (bindat-get-field output 'children))) (catch 'child-already-watched (dolist (var gdb-var-list) @@ -4395,8 +4395,7 @@ member." (save-excursion (if event (posn-set-point (event-end event))) (beginning-of-line) - (let* ((var (bindat-get-field - (get-text-property (point) 'gdb-register-name))) + (let* ((var (get-text-property (point) 'gdb-register-name)) (value (read-string (format "New value (%s): " var)))) (gud-basic-call (concat "-gdb-set variable $" var " = " value))))) -- 2.39.2