Commit ed071fa7 authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent f50598a5
......@@ -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))
......@@ -300,7 +300,7 @@ Thus, this does not include the current directory.")
(file-name-as-directory (cdr user))))
(defun eshell/pwd (&rest args)
(defun eshell/pwd (&rest _args)
"Change output from `pwd' to be cleaner."
(let* ((path default-directory)
(len (length path)))
......@@ -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)
......@@ -965,7 +965,7 @@ Show wall-clock time elapsed during execution of COMMAND.")
(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)))
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment