diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-03-10 21:49:22 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-03-10 21:49:22 -0500 |
commit | 6a2d179a477d6d92fe9df78c4eee392cf83d6d4e (patch) | |
tree | c60724d608097be5de8bb0b5ee7cac978d88de68 /lisp/eshell/esh-opt.el | |
parent | a3f26048a9b115e8dabffaa768128eaccd07dfd3 (diff) | |
download | emacs-6a2d179a477d6d92fe9df78c4eee392cf83d6d4e.tar.gz |
eshell-eval-using-options: Avoid compiler warning differently
* lisp/eshell/em-unix.el (eshell/time):
* lisp/eshell/em-tramp.el (eshell/sudo):
* lisp/eshell/esh-var.el (eshell/env): Remove artificial use of `args'.
* lisp/eshell/esh-opt.el (eshell-eval-using-options): Silence warning
when `args' is not used by `body-forms'.
Diffstat (limited to 'lisp/eshell/esh-opt.el')
-rw-r--r-- | lisp/eshell/esh-opt.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 18852ce5341..b802696306a 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el @@ -95,8 +95,8 @@ BODY-FORMS. If instead an external command is run (because of an unknown option), the tag `eshell-external' will be thrown with the new process for its value. -Lastly, any remaining arguments will be available in a locally -interned variable `args' (created using a `let' form)." +Lastly, any remaining arguments will be available in the locally +let-bound variable `args'." (declare (debug (form form sexp body))) `(let* ((temp-args ,(if (memq ':preserve-args (cadr options)) @@ -111,7 +111,8 @@ interned variable `args' (created using a `let' form)." ;; `options' is of the form (quote OPTS). (cadr options)))) (args processed-args)) - ;; Unused lexical variable warning if body does not use `args'. + ;; Silence unused lexical variable warning if body does not use `args'. + (ignore args) ,@body-forms)) ;;; Internal Functions: |