From: Mattias Engdegård <mattiase@acm.org>
Date: Tue, 27 Oct 2020 15:54:38 +0000 (+0100)
Subject: Remove unused function in gdb-mi.el
X-Git-Tag: emacs-28.0.90~5381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a2b03043c767f219dcf5b14819cb8dede0e6e0c;p=emacs.git

Remove unused function in gdb-mi.el

* lisp/progmodes/gdb-mi.el (gdb-var-evaluate-expression-handler):
Remove.  (It was left behind in an old code reorganisation.)
---

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 36e941fa426..aadfb7c2215 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -1299,16 +1299,6 @@ With arg, enter name of variable to be watched in the minibuffer."
       (raise-frame speedbar-frame))
   (speedbar-timer-fn))
 
-(defun gdb-var-evaluate-expression-handler (varnum changed)
-  (goto-char (point-min))
-  (re-search-forward (concat ".*value=\\(" gdb--string-regexp "\\)")
-                     nil t)
-  (let ((var (assoc varnum gdb-var-list)))
-    (when var
-      (if changed (setcar (nthcdr 5 var) 'changed))
-      (setcar (nthcdr 4 var) (read (match-string 1)))))
-  (gdb-speedbar-update))
-
                                         ; Uses "-var-list-children --all-values".  Needs GDB 6.1 onwards.
 (defun gdb-var-list-children (varnum)
   (gdb-input (concat "-var-update " varnum) 'ignore)