Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0c898dd9
Commit
0c898dd9
authored
Oct 03, 1999
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(defimage): Remove redundant code. Substitute file on image plist.
parent
a4a9692d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
8 deletions
+6
-8
lisp/image.el
lisp/image.el
+6
-8
No files found.
lisp/image.el
View file @
0c898dd9
;;; 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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment