From 859285dde98a01277ac8623330a7a8ff3c842265 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 2 Jun 2016 14:38:10 -0700 Subject: [PATCH] _ unused arguments --- dotfiles/emacs.d/init.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 39bd65df..0939114c 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -82,16 +82,16 @@ (loop for bad in `("https://wrong.host.badssl.com/" "https://self-signed.badssl.com/") - if (condition-case e + if (condition-case _e (url-retrieve - bad (lambda (retrieved) t)) + bad (lambda (_retrieved) t)) (error nil)) collect bad))) (if bad-hosts (error (format "tls misconfigured; retrieved %s ok" bad-hosts)) (url-retrieve "https://badssl.com" - (lambda (retrieved) t))))) + (lambda (_retrieved) t))))) (when imalison:secure (imalison:use-https-and-tls)) @@ -284,7 +284,7 @@ (t (imalison:compare-int-list (cdr a) (cdr b)))))) (defun imalison:get-lat-long () - (condition-case ex + (condition-case _ex (mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string "whereami")))) (error (list 37.7879312624533 -122.402388853402)))) @@ -599,7 +599,7 @@ buffer is not visiting a file." :load-path "~/Projects/term-manager" :preface (progn - (defun imalison:set-escape-char (&rest args) + (defun imalison:set-escape-char (&rest _args) (let (term-escape-char) (term-set-escape-char ?\C-x)))) :config