scratch/shorthand-namespacing ea9544d 3/4: Shoosh byte-compiler in test/lisp/progmodes/elisp-mode-tests

[João Távora]

branch: scratch/shorthand-namespacing
commit ea9544dac5ceb27451d1b7142a785410cf811925
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Shoosh byte-compiler in test/lisp/progmodes/elisp-mode-tests
    
    * test/lisp/progmodes/elisp-mode-tests.el (xref-elisp-generic-no-default)
    (xref-elisp-generic-co-located-default)
    (xref-elisp-generic-separate-default): Prefix local arguments with _.
---
 test/lisp/progmodes/elisp-mode-tests.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/test/lisp/progmodes/elisp-mode-tests.el 
b/test/lisp/progmodes/elisp-mode-tests.el
index d15fae4..dee043b 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -424,7 +424,7 @@ to (xref-elisp-test-descr-to-target xref)."
 ;; causes the batch mode test to fail; the symbol shows up as
 ;; ‘this’. It passes in interactive tests, so I haven't been able to
 ;; track down the problem.
-(cl-defmethod xref-elisp-generic-no-default ((this xref-elisp-root-type) arg2)
+(cl-defmethod xref-elisp-generic-no-default ((_this xref-elisp-root-type) 
_arg2)
   "doc string generic no-default xref-elisp-root-type"
   "non-default for no-default")
 
@@ -436,11 +436,11 @@ to (xref-elisp-test-descr-to-target xref)."
   ;; dispatching code.
   )
 
-(cl-defgeneric xref-elisp-generic-co-located-default (arg1 arg2)
+(cl-defgeneric xref-elisp-generic-co-located-default (_arg1 _arg2)
   "doc string generic co-located-default"
   "co-located default")
 
-(cl-defmethod xref-elisp-generic-co-located-default ((this 
xref-elisp-root-type) arg2)
+(cl-defmethod xref-elisp-generic-co-located-default ((_this 
xref-elisp-root-type) _arg2)
   "doc string generic co-located-default xref-elisp-root-type"
   "non-default for co-located-default")
 
@@ -449,19 +449,19 @@ to (xref-elisp-test-descr-to-target xref)."
   ;; default implementation provided separately
   )
 
-(cl-defmethod xref-elisp-generic-separate-default (arg1 arg2)
+(cl-defmethod xref-elisp-generic-separate-default (_arg1 _arg2)
   "doc string generic separate-default default"
   "separate default")
 
-(cl-defmethod xref-elisp-generic-separate-default ((this xref-elisp-root-type) 
arg2)
+(cl-defmethod xref-elisp-generic-separate-default ((_this 
xref-elisp-root-type) _arg2)
   "doc string generic separate-default xref-elisp-root-type"
   "non-default for separate-default")
 
-(cl-defmethod xref-elisp-generic-implicit-generic (arg1 arg2)
+(cl-defmethod xref-elisp-generic-implicit-generic (_arg1 _arg2)
   "doc string generic implicit-generic default"
   "default for implicit generic")
 
-(cl-defmethod xref-elisp-generic-implicit-generic ((this xref-elisp-root-type) 
arg2)
+(cl-defmethod xref-elisp-generic-implicit-generic ((_this 
xref-elisp-root-type) _arg2)
   "doc string generic implicit-generic xref-elisp-root-type"
   "non-default for implicit generic")