changeset 30952:5042a3b24c96

(find-image): Copy `spec' before using plist-put.
author Dave Love <fx@gnu.org>
date Fri, 18 Aug 2000 13:45:24 +0000
parents e6acd4b6a8d5
children 2c9c5a2d8d8f
files lisp/image.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/image.el	Fri Aug 18 10:48:26 2000 +0000
+++ b/lisp/image.el	Fri Aug 18 13:45:24 2000 +0000
@@ -225,7 +225,8 @@
 			   (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))))