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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e4f83202c67f8e29e0490e0d5e844bef42bd013..0bf841cfd54654fecbbc4619a85e77d5593cf9b6 100644 (file)
--- 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 0e507d2ed3cbe94165e6a06f85101f063b667013..968344399751ca6547d6f7e0ba2da20c14f72934 100644 (file)
--- 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))))