Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
70949f30
Commit
70949f30
authored
Mar 14, 2006
by
Bill Wohler
Browse files
(Defining Images): In image-load-path-for-library, always return list
of directories. Update example.
parent
44e3f440
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
10 deletions
+14
-10
lispref/ChangeLog
lispref/ChangeLog
+5
-0
lispref/display.texi
lispref/display.texi
+9
-10
No files found.
lispref/ChangeLog
View file @
70949f30
2006
-
03
-
14
Bill
Wohler
<
wohler
@
newt
.
com
>
*
display
.
texi
(
Defining
Images
):
In
image
-
load
-
path
-
for
-
library
,
always
return
list
of
directories
.
Update
example
.
2006
-
03
-
14
Alan
Mackenzie
<
acm
@
muc
.
de
>
*
modes
.
texi
:
New
node
,
"Region to Fontify"
(
for
Font
Lock
).
...
...
lispref/display.texi
View file @
70949f30
...
...
@@ -4138,22 +4138,21 @@ First it searches for @var{image} in a path suitable for
Then this function returns a list of directories which contains first
the directory in which @var{image} was found, followed by the value of
@code{load-path}. If @var{path} is given, it is used instead of
@code{load-path}. If @var{path} is @code{t}, then the function just
returns the directory that contains @var{image}.
@c ??? Meaningm it does not return a list?
@code{load-path}.
If @var{no-error} is non-@code{nil}, this function returns @code{nil}
if a suitable path can't be found, rather than signaling an error.
If @var{no-error} is non-@code{nil} and a suitable path can't be
found, don't signal an error. Instead, return a list of directories as
before, except that @code{nil} appears in place of the image directory.
Here is an example that uses a common idiom to provide compatibility
with versions of Emacs that lack the variable @code{image-load-path}:
@example
(let ((
load-path
(image-load-path-for-library "mh-e" "mh-logo.xpm"
))
(image-load-path
(image-load-path-for-library "mh-e" "mh-logo.xpm"
'
image-load-path)))
;; Avoid errors on Emacsen without `image-
load-path
'.
(if (not (boundp 'image-load-path)) (defvar image-load-path nil
))
(let* ((load-path
(image-load-path-for-library "mh-e" "mh-logo.xpm"
))
(image-load-path (cons (car load-path)
image-load-path)))
(mh-tool-bar-folder-buttons-init))
@end example
@end defun
...
...
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