view lisp/=bytecpat.el @ 20571:3e0e568163f5

(current_column_1, Fmove_to_column): Update call to CHAR_HEAD_P. (indented_beyond_p): Take POS in bytes and chars. Callers changed. (pos_tab_indent): Function moved to xdisp.c. (Fcurrent_indentation): Use scan_newline and SET_PT_BOTH. (indented_beyond_p, current_column_1): Likewise. (vmotion, compute_motion): Set up bytepos value to return it. (current_column): Handle bytepos and charpos. (position_indentation): Take bytepos as arg, and scan with it. Calls changed. (Fmove_to_column): Scan with bytepos and charpos. (pos_tab_offset): Use bytepos to do FETCH_BYTE. (skip_invisible): Don't worry about position in middle of character.

;;; 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)))