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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e4f83202c6..0bf841cfd54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-18  Dave Love  <fx@gnu.org>
+
+        * image.el (find-image): Copy `spec' before using plist-put.
+
 2000-08-18  Gerd Moellmann  <gerd@gnu.org>
 
         * textmodes/ispell.el (ispell-dictionary-alist-6): Add
diff --git a/lisp/image.el b/lisp/image.el
index 0e507d2ed3c..96834439975 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -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))))