emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/inf-clojure 6009dc6 060/313: Fix for byte-compile warning


From: ELPA Syncer
Subject: [nongnu] elpa/inf-clojure 6009dc6 060/313: Fix for byte-compile warning about unused variables
Date: Wed, 11 Aug 2021 09:59:46 -0400 (EDT)

branch: elpa/inf-clojure
commit 6009dc60868b4bed75b8bc667b201f82f74926a6
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>

    Fix for byte-compile warning about unused variables
---
 inf-clojure.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index e6bdc7f..706896a 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -543,13 +543,10 @@ See variable `inf-clojure-var-source-command'."
 See variable `inf-clojure-arglist-command'."
   (interactive (inf-clojure-symprompt "Arglist" (inf-clojure-fn-called-at-pt)))
   (let* ((proc (inf-clojure-proc))
-         (line (buffer-substring (save-excursion (move-beginning-of-line 1)
-                                                 (point))
-                                 (point)))
          (comint-filt (process-filter proc))
          (kept "")
          eldoc)
-    (set-process-filter proc (lambda (proc string) (setq kept (concat kept 
string))))
+    (set-process-filter proc (lambda (_proc string) (setq kept (concat kept 
string))))
     (unwind-protect
         (let ((eldoc-snippet (format inf-clojure-arglist-command fn)))
           (process-send-string proc eldoc-snippet)
@@ -606,13 +603,10 @@ With a prefix arg MACRO-1 uses 
`inf-clojure-macroexpand-1-command'."
 (defun inf-clojure-completions (expr)
   "Return a list of completions for the Clojure expression starting with EXPR."
   (let* ((proc (inf-clojure-proc))
-         (line (buffer-substring (save-excursion (move-beginning-of-line 1)
-                                                 (point))
-                                 (point)))
          (comint-filt (process-filter proc))
          (kept "")
          completions)
-    (set-process-filter proc (lambda (proc string) (setq kept (concat kept 
string))))
+    (set-process-filter proc (lambda (_proc string) (setq kept (concat kept 
string))))
     (unwind-protect
         (let ((completion-snippet
                (format



reply via email to

[Prev in Thread] Current Thread [Next in Thread]