summaryrefslogtreecommitdiff
path: root/elisp/geiser-image.el
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
commite896e08cfabd87d1a2d2e06c178bf47c41aaa85d (patch)
treefa5ba4a55e4c1cb1be2541d8dcd15e5f7a25ef03 /elisp/geiser-image.el
parenta36fd73dbd98a31fb955f5570afc307e3fc0cbf9 (diff)
downloadgeiser-e896e08cfabd87d1a2d2e06c178bf47c41aaa85d.tar.gz
geiser-e896e08cfabd87d1a2d2e06c178bf47c41aaa85d.tar.bz2
Fix: more encompassing lookup for images in scheme output
We were not taking into account windows paths, with their backslashes and colons.
Diffstat (limited to 'elisp/geiser-image.el')
-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))