annotate lisp/=bytecpat.el @ 24147:c83b0bc4e8b9
(Vw32_bdf_filename_alist): New variable.
(x_destroy_bitmap): Returns void not int.
(x_set_border_pixel): Returns void.
(w32_load_bdf_font): New function.
(w32_load_system_font): New function, was w32_load_font. List
fonts before loading. Explicitly set encoding for SJIS fonts.
Set default_ascent to 0 as comment indicates.
(w32_load_font): Call w32_load_system_font and w32_load_bdf_font.
(w32_unload_font): Support BDF fonts.
(w32_to_x_charset): Fix mappings to avoid wildcard mismatches.
Autodetect whether to use koi8-r instead of iso8859-5.
Associate "ksc5601.1987" with HANGUEL_CHARSET.
Associate "ksc5601.1992" with JOHAB_CHARSET.
(x_to_w32_charset): Make consistent with w32_to_x_charset.
(w32_to_x_font): Add resolution.
(x_to_w32_font): Use font resolution to calculate height if supplied.
(w32_font_match): Handle wildcards anywhere within field.
(enumfont_t): Remove unused head pointer.
(enum_font_cb2): Dereference elfLogFont.
(w32_list_bdf_fonts): New function.
(w32_list_fonts): Use one_w32_dispay_info instead of insisting on
valid frame. Remove MessageBox. Support BDF fonts.
(Fw32_find_bdf_fonts): New function.
(syms_of_w32fns): Add Vw32_bdf_filename_alist and
Sw32_find_bdf_fonts.
author |
Geoff Voelker <voelker@cs.washington.edu> |
date |
Fri, 22 Jan 1999 19:59:22 +0000 |
parents |
84acc3adcd63 |
children |
|
rev |
line source |
13337
|
1 ;;; bytecpat.el --- do recompilation for Emacs patch files.
|
13335
|
2 ;;; This function is used by the patch files to update Emacs releases.
|
|
3
|
|
4 (defun batch-byte-recompile-emacs ()
|
|
5 "Recompile the Emacs `lisp' directory.
|
|
6 This is used after installing the patches for a new version."
|
|
7 (let ((load-path (list (expand-file-name "lisp"))))
|
|
8 (byte-recompile-directory "lisp")))
|
|
9
|
|
10 (defun batch-byte-compile-emacs ()
|
|
11 "Compile new files installed in the Emacs `lisp' directory.
|
|
12 This is used after installing the patches for a new version.
|
|
13 It uses the command line arguments to specify the files to compile."
|
|
14 (let ((load-path (list (expand-file-name "lisp"))))
|
|
15 (batch-byte-compile)))
|