master a090e5f 1/2: Remove useless uses of bindat-get-field

[Mattias Engdegård]

branch: master
commit a090e5fe0855587fd122151794757dbf04dc7c73
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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 79df970..9e8af84 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)))))