_ unused arguments

This commit is contained in:
Ivan Malison 2016-06-02 14:38:10 -07:00
parent dcc614e9a5
commit 859285dde9

View File

@ -82,16 +82,16 @@
(loop for bad (loop for bad
in `("https://wrong.host.badssl.com/" in `("https://wrong.host.badssl.com/"
"https://self-signed.badssl.com/") "https://self-signed.badssl.com/")
if (condition-case e if (condition-case _e
(url-retrieve (url-retrieve
bad (lambda (retrieved) t)) bad (lambda (_retrieved) t))
(error nil)) (error nil))
collect bad))) collect bad)))
(if bad-hosts (if bad-hosts
(error (format "tls misconfigured; retrieved %s ok" (error (format "tls misconfigured; retrieved %s ok"
bad-hosts)) bad-hosts))
(url-retrieve "https://badssl.com" (url-retrieve "https://badssl.com"
(lambda (retrieved) t))))) (lambda (_retrieved) t)))))
(when imalison:secure (imalison:use-https-and-tls)) (when imalison:secure (imalison:use-https-and-tls))
@ -284,7 +284,7 @@
(t (imalison:compare-int-list (cdr a) (cdr b)))))) (t (imalison:compare-int-list (cdr a) (cdr b))))))
(defun imalison:get-lat-long () (defun imalison:get-lat-long ()
(condition-case ex (condition-case _ex
(mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string (mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string
"whereami")))) "whereami"))))
(error (list 37.7879312624533 -122.402388853402)))) (error (list 37.7879312624533 -122.402388853402))))
@ -599,7 +599,7 @@ buffer is not visiting a file."
:load-path "~/Projects/term-manager" :load-path "~/Projects/term-manager"
:preface :preface
(progn (progn
(defun imalison:set-escape-char (&rest args) (defun imalison:set-escape-char (&rest _args)
(let (term-escape-char) (let (term-escape-char)
(term-set-escape-char ?\C-x)))) (term-set-escape-char ?\C-x))))
:config :config