[Emacs-diffs] master ed071fa: Quieten eshell compilation

[Glenn Morris]

branch: master
commit ed071fa79c05e88a2ec3830c0813ed94544854b2
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Quieten eshell compilation
    
    * lisp/eshell/em-dirs.el (eshell-dirs-initialize, eshell/pwd):
    * lisp/eshell/em-script.el (eshell-script-initialize):
    * lisp/eshell/em-unix.el (eshell/whoami):
    * lisp/eshell/esh-proc.el (eshell/jobs): Mark unused arguments.
---
 lisp/eshell/em-dirs.el   | 4 ++--
 lisp/eshell/em-script.el | 2 +-
 lisp/eshell/em-unix.el   | 2 +-
 lisp/eshell/esh-proc.el  | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 37cb6b1..34bf821 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -207,7 +207,7 @@ Thus, this does not include the current directory.")
   (when eshell-cd-on-directory
     (make-local-variable 'eshell-interpreter-alist)
     (setq eshell-interpreter-alist
-         (cons (cons #'(lambda (file args)
+         (cons (cons #'(lambda (file _args)
                           (eshell-lone-directory-p file))
                      'eshell-dirs-substitute-cd)
                eshell-interpreter-alist)))
@@ -300,7 +300,7 @@ Thus, this does not include the current directory.")
                    (file-name-as-directory (cdr user))))
                 eshell-user-names)))))))
 
-(defun eshell/pwd (&rest args)
+(defun eshell/pwd (&rest _args)
   "Change output from `pwd' to be cleaner."
   (let* ((path default-directory)
         (len (length path)))
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index 1b0b220..a5d8e96 100644
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -61,7 +61,7 @@ This includes when running `eshell-command'."
   "Initialize the script parsing code."
   (make-local-variable 'eshell-interpreter-alist)
   (setq eshell-interpreter-alist
-       (cons (cons #'(lambda (file args)
+       (cons (cons #'(lambda (file _args)
                         (string= (file-name-nondirectory file)
                                  "eshell"))
                     'eshell/source)
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index c3448de..a18fb85 100644
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -965,7 +965,7 @@ Show wall-clock time elapsed during execution of COMMAND.")
                                  (eshell-stringify-list
                                   (eshell-flatten-list (cdr time-args))))))))
 
-(defun eshell/whoami (&rest args)
+(defun eshell/whoami (&rest _args)
   "Make \"whoami\" Tramp aware."
   (or (file-remote-p default-directory 'user) (user-login-name)))
 
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index 59fb9b9..f138085 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -158,7 +158,7 @@ The signals which will cause this to happen are matched by
 
 (defalias 'eshell/wait 'eshell-wait-for-process)
 
-(defun eshell/jobs (&rest args)
+(defun eshell/jobs (&rest _args)
   "List processes, if there are any."
   (and (fboundp 'process-list)
        (process-list)