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 | 01bd372829e5309f24b3d14ca9a879ad1fd6f6c6 (patch) | |
| tree | c8d6dd66eca87948e9d767a17fefb7d94ae47c10 /elisp | |
| parent | f6e0ac85012c2e46dff12e9ec0181c02b6074b8a (diff) | |
| download | geiser-guile-01bd372829e5309f24b3d14ca9a879ad1fd6f6c6.tar.gz geiser-guile-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.
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)) |