From 47120666dad6eb0b6ca716325d7de86924e1d28e Mon Sep 17 00:00:00 2001 From: Jack Kamm Date: Thu, 28 Nov 2019 17:45:56 -0800 Subject: [PATCH] org: display remote images --- lisp/org.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 90f222c8b..dc7bcc7aa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16754,13 +16754,20 @@ buffer boundaries with possible narrowing." (t nil))) (old (get-char-property-and-overlay (org-element-property :begin link) - 'org-image-overlay))) + 'org-image-overlay)) + (remote-p (file-remote-p file))) (if (and (car-safe old) refresh) (image-refresh (overlay-get (cdr old) 'display)) - (let ((image (create-image file + (let ((image (create-image (if (not remote-p) + file + (with-temp-buffer + (insert-file-contents file) + (string-make-unibyte + (buffer-substring-no-properties + (point-min) (point-max))))) (and (image-type-available-p 'imagemagick) width 'imagemagick) - nil + remote-p :width width))) (when image (let ((ov (make-overlay -- 2.24.0