summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-12-10 23:26:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-12-10 23:26:31 +0100
commit01bd372829e5309f24b3d14ca9a879ad1fd6f6c6 (patch)
treec8d6dd66eca87948e9d767a17fefb7d94ae47c10
parentf6e0ac85012c2e46dff12e9ec0181c02b6074b8a (diff)
downloadgeiser-chez-01bd372829e5309f24b3d14ca9a879ad1fd6f6c6.tar.gz
geiser-chez-01bd372829e5309f24b3d14ca9a879ad1fd6f6c6.tar.bz2
Fix: more encompassing lookup for images in scheme output
We were not taking into account windows paths, with their backslashes and colons.
-rw-r--r--elisp/geiser-image.el3
1 files changed, 2 insertions, 1 deletions
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))