@@ -788,7 +788,7 @@ the symbol."
788
788
t )))
789
789
(t t ))))
790
790
791
- (defun cider-repl--display-image (buffer image &optional show-prefix bol string )
791
+ (defun cider-repl--display-image (buffer image &optional show-prefix bol )
792
792
" Insert IMAGE into BUFFER at the current point.
793
793
794
794
For compatibility with the rest of CIDER's REPL machinery, supports
@@ -809,7 +809,7 @@ SHOW-PREFIX and BOL."
809
809
(props (nconc `(display , image rear-nonsticky (display))
810
810
(when (boundp 'image-map )
811
811
`(keymap , image-map )))))
812
- (insert-before-markers string )
812
+ (insert-before-markers " " )
813
813
(add-text-properties start (point ) props)))))
814
814
(cider-repl--show-maximum-output))
815
815
t )
@@ -836,14 +836,14 @@ raw image data or a filename. Returns an image instance with a margin per
836
836
Part of the default `cider-repl-content-type-handler-alist' ."
837
837
(cider-repl--display-image buffer
838
838
(cider-repl--image image 'jpeg t )
839
- show-prefix bol " " ))
839
+ show-prefix bol))
840
840
841
841
(defun cider-repl-handle-png (_type buffer image &optional show-prefix bol )
842
842
" A handler for inserting a png IMAGE into a repl BUFFER.
843
843
Part of the default `cider-repl-content-type-handler-alist' ."
844
844
(cider-repl--display-image buffer
845
845
(cider-repl--image image 'png t )
846
- show-prefix bol " " ))
846
+ show-prefix bol))
847
847
848
848
(defun cider-repl-handle-external-body (type buffer _ &optional _show-prefix _bol )
849
849
" Handler for slurping external content into BUFFER.
0 commit comments