[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a090e5f 1/2: Remove useless uses of bindat-get-field
From: |
Mattias Engdegård |
Subject: |
master a090e5f 1/2: Remove useless uses of bindat-get-field |
Date: |
Thu, 22 Oct 2020 12:33:44 -0400 (EDT) |
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)))))