procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(SYSTEM_DEFAULT_RESOURCES): New constant.

Browse source 
(w32_get_string_resource): Try SYSTEM_DEFAULT_RESOURCES last.
This commit is contained in:
Jason Rumney 2003-06-05 23:21:19 +00:00
parent 0c8ea7afde
commit 3d1436900e
2 changed files with 38 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/ChangeLog
View file

@ -1,3 +1,11 @@
2003-06-06 Jason Rumney <jasonr@gnu.org>
* w32reg.c (SYSTEM_DEFAULT_RESOURCES): New constant.
(w32_get_string_resource): Try SYSTEM_DEFAULT_RESOURCES last.
* xfaces.c (Finternal_face_x_get_resource): Do it on Windows and
Mac too.
2003-06-05 Dave Love <fx@gnu.org>
* mktime.c (__mktime_internal): Merge changes from gnulib

31
src/w32reg.c
View file

@ -30,6 +30,33 @@ Boston, MA 02111-1307, USA. */
#define REG_ROOT "SOFTWARE\\GNU\\Emacs"
/* Default system colors from the Display Control Panel settings. */
#define SYSTEM_DEFAULT_RESOURCES \
"emacs.foreground:SystemWindowText\0" \
"emacs.background:SystemWindow\0" \
"emacs.tooltip.attributeForeground:SystemInfoText\0" \
"emacs.tooltip.attributeBackground:SystemInfoWindow\0" \
"emacs.tool-bar.attributeForeground:SystemButtonText\0" \
"emacs.tool-bar.attributeBackground:SystemButtonFace\0" \
"emacs.menu.attributeForeground:SystemMenuText\0" \
"emacs.menu.attributeBackground:SystemMenu\0" \
"emacs.scroll-bar.attributeForeground:SystemScrollbar"
/* Other possibilities for default faces:
region: Could use SystemHilight, but interferes with our ability to
see most syntax highlighting through the region face.
modeline: Could use System(In)ActiveTitle, gradient versions (not
supported on 95 and NT), but modeline is more like a status bar
really (which don't appear to be configurable in Windows).
highlight: Could use SystemHotTrackingColor, but it is not supported
on Windows 95 or NT, and other apps only seem to use it for menus
anyway.
*/
static char *
w32_get_rdb_resource (rdb, resource)
char *rdb;
@ -109,7 +136,9 @@ w32_get_string_resource (name, class, dwexptype)
hive = HKEY_LOCAL_MACHINE;
goto trykey;
}
return (NULL);
/* Check if there are Windows specific defaults defined. */
return w32_get_rdb_resource (SYSTEM_DEFAULT_RESOURCES, name);
}
return (lpvalue);
}