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