emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

(defimage): Remove redundant code. Substitute file on image plist.

Browse source
This commit is contained in:
Dave Love 1999-10-03 19:25:32 +00:00
parent a4a9692da1
commit 0c898dd963
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/image.el
View file

@ -1,6 +1,6 @@
;;; image.el --- image API
;; Copyright (C) 1998 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
;; Keywords: multimedia
;; This file is part of GNU Emacs.
@ -148,8 +148,8 @@ BUFFER nil or omitted means use the current buffer."
(while overlays
(let ((overlay (car overlays)))
(when (overlay-get overlay 'put-image)
(delete-overlay overlay)
(setq overlays (cdr overlays)))))))
(delete-overlay overlay)))
(setq overlays (cdr overlays)))))
;;;###autoload
@ -176,11 +176,9 @@ Example:
(type (plist-get spec :type))
(file (plist-get spec :file)))
(when (and (image-type-available-p type) (stringp file))
(setq file (expand-file-name file))
(unless (file-name-absolute-p file)
(setq file (concat data-directory "/" file)))
(when (file-exists-p file)
(setq image (cons 'image spec))))
(setq file (expand-file-name file data-directory))
(when (file-readable-p file)
(setq image (cons 'image (plist-put spec :file file)))))
(setq specs (cdr specs))))
`(defvar ,symbol ',image ,doc)))