mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases 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
Show Stats 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))))