From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 3 Dec 2023 09:54:11 +0000 (+0100)
Subject: ; Remove two unused local variables
X-Git-Tag: V9.1.21-sweep-0.27.3~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5a4d53c3e63cc66edc23e6767b04c3424606370;p=sweep.git

; Remove two unused local variables

* sweeprolog.el (sweeprolog--diagnostics-changes-beg)
(sweeprolog--diagnostics-changes-end): Unused, remove.
* sweeprolog.el (sweeprolog-diagnostic-function): Adapt.
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 93284f2..6245dea 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -624,10 +624,6 @@ By default, this is t on systems where Emacs can use a pty."
 
 (defvar-local sweeprolog--diagnostics-report-fn nil)
 
-(defvar-local sweeprolog--diagnostics-changes-beg nil)
-
-(defvar-local sweeprolog--diagnostics-changes-end nil)
-
 (defvar-local sweeprolog--timer nil)
 
 (defvar-local sweeprolog--analyze-buffer-duration 0.2)
@@ -3388,11 +3384,9 @@ variable at point, if any."
 
 ;;;; Flymake
 
-(defun sweeprolog-diagnostic-function (report-fn &rest rest)
+(defun sweeprolog-diagnostic-function (report-fn &rest _)
   (setq sweeprolog--diagnostics nil
-        sweeprolog--diagnostics-report-fn report-fn
-        sweeprolog--diagnostics-changes-beg (plist-get rest :changes-start)
-        sweeprolog--diagnostics-changes-end (plist-get rest :changes-end)))
+        sweeprolog--diagnostics-report-fn report-fn))
 
 (defun sweeprolog-show-diagnostics (&optional proj)
   "Show diagnostics for the current project, or buffer if PROJ is nil.