view lisp/patcomp.el @ 50623:7a24ff2e2f8b

(view-read-only): Don't declare a second time. (find-file-read-only, find-file-read-only-other-window) (find-file-read-only-other-frame): Check that file does exist. (large-file-warning-threshold): New custom. (find-file-noselect): Use it. (report-errors): New macro. (normal-mode): Use it. (toggle-read-only): Really toggle, even if view-mode is on. (parse-colon-path): Remove unused `cd-prefix' var. (make-backup-file-name-1): Remove unused `failed' var. (basic-save-buffer): Remove unused `tempsetmodes' var. (basic-save-buffer-2): Remove unused `temp' var. (insert-directory): Remove unused `available' var.

;;; patcomp.el --- used by patch files to update Emacs releases -*- no-byte-compile: t -*-

;; This file is part of GNU Emacs.

;;; Commentary:

;;; Code:

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

;;; patcomp.el ends here