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
5d7fed93
Commit
5d7fed93
authored
Oct 09, 1998
by
Geoff Voelker
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(x_create_bitmap_from_file): Skip special files.
parent
48e6f513
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
35 additions
and
0 deletions
+35
-0
src/w32fns.c
src/w32fns.c
+35
-0
No files found.
src/w32fns.c
View file @
5d7fed93
...
@@ -442,6 +442,9 @@ x_create_bitmap_from_file (f, file)
...
@@ -442,6 +442,9 @@ x_create_bitmap_from_file (f, file)
fd = openp (Vx_bitmap_file_path, file, "", &found, 0);
fd = openp (Vx_bitmap_file_path, file, "", &found, 0);
if (fd < 0)
if (fd < 0)
return -1;
return -1;
/* LoadLibraryEx won't handle special files handled by Emacs handler. */
if (fd == 0)
return -1;
close (fd);
close (fd);
filename = (char *) XSTRING (found)->data;
filename = (char *) XSTRING (found)->data;
...
@@ -1298,6 +1301,38 @@ w32_color_map_lookup (colorname)
...
@@ -1298,6 +1301,38 @@ w32_color_map_lookup (colorname)
return
ret
;
return
ret
;
}
}
COLORREF
w32_color_map_lookup
(
colorname
)
char
*
colorname
;
{
Lisp_Object
tail
,
ret
=
Qnil
;
BLOCK_INPUT
;
for
(
tail
=
Vw32_color_map
;
!
NILP
(
tail
);
tail
=
Fcdr
(
tail
))
{
register
Lisp_Object
elt
,
tem
;
elt
=
Fcar
(
tail
);
if
(
!
CONSP
(
elt
))
continue
;
tem
=
Fcar
(
elt
);
if
(
lstrcmpi
(
XSTRING
(
tem
)
->
data
,
colorname
)
==
0
)
{
ret
=
XUINT
(
Fcdr
(
elt
));
break
;
}
QUIT
;
}
UNBLOCK_INPUT
;
return
ret
;
}
COLORREF
COLORREF
x_to_w32_color
(
colorname
)
x_to_w32_color
(
colorname
)
char
*
colorname
;
char
*
colorname
;
...
...
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