diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-12-10 23:26:31 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-12-10 23:26:31 +0100 |
| commit | e896e08cfabd87d1a2d2e06c178bf47c41aaa85d (patch) | |
| tree | fa5ba4a55e4c1cb1be2541d8dcd15e5f7a25ef03 /elisp | |
| parent | a36fd73dbd98a31fb955f5570afc307e3fc0cbf9 (diff) | |
| download | geiser-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')
| -rw-r--r-- | elisp/geiser-image.el | 3 |
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)) |