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
7f228379
Commit
7f228379
authored
Mar 01, 2000
by
Gerd Moellmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(defimage): Look for image files in load-path.
parent
70d9b8fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
5 deletions
+12
-5
lisp/image.el
lisp/image.el
+12
-5
No files found.
lisp/image.el
View file @
7f228379
;;; image.el --- image API
;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999
, 2000
Free Software Foundation, Inc.
;; Keywords: multimedia
;; This file is part of GNU Emacs.
...
...
@@ -200,12 +200,19 @@ Example:
(
let*
((
spec
(
car
specs
))
(
type
(
plist-get
spec
:type
))
(
data
(
plist-get
spec
:data
))
(
file
(
plist-get
spec
:file
)))
(
file
(
plist-get
spec
:file
))
found
)
(
when
(
image-type-available-p
type
)
(
cond
((
stringp
file
)
(
setq
file
(
expand-file-name
file
data-directory
))
(
when
(
file-readable-p
file
)
(
setq
image
(
cons
'image
(
plist-put
spec
:file
file
)))))
(
let
((
path
load-path
))
(
while
(
and
(
not
found
)
path
)
(
let
((
try-file
(
expand-file-name
file
(
car
path
))))
(
when
(
file-readable-p
try-file
)
(
setq
found
try-file
)))
(
setq
path
(
cdr
path
)))
(
unless
found
(
setq
found
(
expand-file-name
file
data-directory
)))
(
setq
image
(
cons
'image
(
plist-put
spec
:file
found
)))))
((
not
(
null
data
))
(
setq
image
(
cons
'image
spec
)))))
(
setq
specs
(
cdr
specs
))))
...
...
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