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

9bb7a286 · Dave Love · 13004bef · 9bb7a286 · 9bb7a286
Commit 9bb7a286 authored Aug 18, 2000 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/image.el lisp/image.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

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