Fix: more encompassing lookup for images in scheme output
authorJose Antonio Ortega Ruiz <jao@gnu.org>
Mon, 10 Dec 2012 22:26:31 +0000 (10 23:26 +0100)
committerJose Antonio Ortega Ruiz <jao@gnu.org>
Mon, 10 Dec 2012 22:26:31 +0000 (10 23:26 +0100)
We were not taking into account windows paths, with their backslashes
and colons.

elisp/geiser-image.el

index 5841709..1d8a03a 100644 (file)
@@ -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))