diff options
| author | Dave Love <fx@gnu.org> | 2000-08-18 13:45:36 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-08-18 13:45:36 +0000 |
| commit | 9bb7a286d43a9b79be04633a9f96fb538dde62e0 (patch) | |
| tree | c98ca556237fbcb63b1fe136e6f658d959b839b4 /lisp/image.el | |
| parent | 13004bef1edded6c5ab0f24f226a53d758af80b7 (diff) | |
| download | emacs-9bb7a286d43a9b79be04633a9f96fb538dde62e0.tar.gz | |
(find-image): Copy `spec' before using plist-put.
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |