From 01bd372829e5309f24b3d14ca9a879ad1fd6f6c6 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 10 Dec 2012 23:26:31 +0100
Subject: [PATCH] Fix: more encompassing lookup for images in scheme output

We were not taking into account windows paths, with their backslashes
and colons.
---
 elisp/geiser-image.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-image.el b/elisp/geiser-image.el
index 5841709..1d8a03a 100644
--- a/elisp/geiser-image.el
+++ b/elisp/geiser-image.el
@@ -90,7 +90,8 @@ images in `geiser-image-cache-dir'."
     (with-silent-modifications
       (save-excursion
         (goto-char (point-min))
-        (while (re-search-forward "\"?#<Image: \\([-+./_0-9a-zA-Z]+\\)>\"?" nil t)
+        (while (re-search-forward "\"?#<Image: \\([-+.\\\\/_:0-9a-zA-Z]+\\)>\"?"
+                                  nil t)
           (setq seen (+ 1 seen))
           (let* ((file (match-string 1))
                  (begin (match-beginning 0))
-- 
2.11.4.GIT