mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Dave Love 2000-08-18 13:45:36 +00:00
parent 13004bef1e
commit 9bb7a286d4
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

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

3
lisp/image.el
View file

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