wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

_ unused arguments

Browse Source
This commit is contained in:
Ivan Malison 2016-06-02 14:38:10 -07:00
parent dcc614e9a5
commit 859285dde9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/emacs.d/init.el
View File

@ -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