Commit 9bb7a286 authored by Dave Love's avatar Dave Love
Browse files

(find-image): Copy `spec' before using plist-put.

parent 13004bef
2000-08-18 Dave Love <>
* image.el (find-image): Copy `spec' before using plist-put.
2000-08-18 Gerd Moellmann <>
* textmodes/ispell.el (ispell-dictionary-alist-6): Add
......@@ -225,7 +225,8 @@ The image is looked for first on `load-path' and then in `data-directory'."
(setq found try-file))))
(if found
(setq image
(cons 'image (plist-put spec :file found))))))
(cons 'image (plist-put (copy-sequence spec)
:file found))))))
((not (null data))
(setq image (cons 'image spec)))))
(setq specs (cdr specs))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment