> (defun thumbs-thumbname (img)
> "Return a thumbnail name for the image IMG."
> (convert-standard-filename
> (concat thumbs-thumbsdir "/"
> (subst-char-in-string
> ?\s ?\_
> (apply
> 'concat
> (split-string
> (expand-file-name img) "/"))))))
Why not just
(defun thumbs-thumbname (img)
"Return a thumbnail name for the image IMG."
(concat thumbs-thumbsdir "/"
(convert-standard-filename
(subst-char-in-string ?/ ?\| (expand-file-name img)))))
-- Stefan
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
