diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2018-04-29 07:29:53 -0500 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2018-04-29 07:29:53 -0500 |
commit | 7e59878248a35a1a6f856decbef7132385a25e3d (patch) | |
tree | e51b32e4124b4a2b39e6504e2b279e8d6231cb89 /cider-repl.el | |
parent | dd836340ba9571b24d9bbccae2336c3f0c22116b (diff) |
Fix some compilation warnings introduced by the previous commit
Diffstat (limited to 'cider-repl.el')
-rw-r--r-- | cider-repl.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cider-repl.el b/cider-repl.el index 68b7d10e..eb978450 100644 --- a/cider-repl.el +++ b/cider-repl.el @@ -862,10 +862,10 @@ Part of the default `cider-repl-content-type-handler-alist'." (cider-repl--image image 'png t) show-prefix bol image)) -(defun cider-repl-handle-external-body (type buffer _ &optional show-prefix bol) +(defun cider-repl-handle-external-body (type buffer _ &optional _show-prefix _bol) "Handler for slurping external content into BUFFER. Handles an external-body TYPE by issuing a slurp request to fetch the content." - (if-let* ((args (second type)) + (if-let* ((args (cadr type)) (access-type (nrepl-dict-get args "access-type"))) (nrepl-send-request (list "op" "slurp" "url" (nrepl-dict-get args "URL")) @@ -917,8 +917,8 @@ nREPL ops, it may be convenient to prevent inserting a prompt." (cider-repl-emit-result buffer pprint-out (not after-first-result-chunk)) (setq after-first-result-chunk t)) (lambda (buffer value content-type) - (if-let* ((content-attrs (second content-type)) - (content-type* (first content-type)) + (if-let* ((content-attrs (cadr content-type)) + (content-type* (car content-type)) (handler (cdr (assoc content-type* cider-repl-content-type-handler-alist)))) (setq after-first-result-chunk t |