view lisp/=bytecpat.el @ 33387:01a10bc04233

(Qw32_charset_hangeul): Rename to match w32 headers. (Qw32_charset_vietnamese): New symbol. (xlfd_charset_of_font): New function. (w32_load_system_font): Use it. (x_to_w32_charset): Use Fassoc to find charset info. Special case when Vw32_charset_info_alist is nil to ensure default face always has font. Use Fcar and Fcdr for safety. (w32_to_x_charset): Use Vw32_charset_info_alist for mappings. (w32_codepage_for_font): Use xlfd_charset_of_font. Use new pseudo-codepages for special cases. (w32_to_x_font): New parameter to allow charset portion to be specified where there is many to one mapping. Callers changed. (w32_list_fonts): Avoid listing fonts that won't display.

;;; bytecpat.el --- do recompilation for Emacs patch files.
;;; This function is used by the patch files to update Emacs releases.

(defun batch-byte-recompile-emacs ()
  "Recompile the Emacs `lisp' directory.
This is used after installing the patches for a new version."
  (let ((load-path (list (expand-file-name "lisp"))))
    (byte-recompile-directory "lisp")))

(defun batch-byte-compile-emacs ()
  "Compile new files installed in the Emacs `lisp' directory.
This is used after installing the patches for a new version.
It uses the command line arguments to specify the files to compile."
  (let ((load-path (list (expand-file-name "lisp"))))
    (batch-byte-compile)))