From: Dave Love <fx@gnu.org>
Date: Fri, 18 Aug 2000 13:45:36 +0000 (+0000)
Subject: (find-image): Copy `spec' before using plist-put.
X-Git-Tag: emacs-pretest-21.0.90~2176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bb7a286d43a9b79be04633a9f96fb538dde62e0;p=emacs.git

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

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))))