From 01bd372829e5309f24b3d14ca9a879ad1fd6f6c6 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 10 Dec 2012 23:26:31 +0100 Subject: 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(-) (limited to 'elisp') 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 "\"?#\"?" nil t) + (while (re-search-forward "\"?#\"?" + nil t) (setq seen (+ 1 seen)) (let* ((file (match-string 1)) (begin (match-beginning 0)) -- cgit v1.2.3