Mercurial > emacs
comparison lisp/patcomp.el @ 38414:67b464da13ec
Some fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sun, 15 Jul 2001 19:53:53 +0000 |
parents | 2d0bece94ee7 |
children | 33d53d287ee4 |
comparison
equal
deleted
inserted
replaced
38413:a26d9b55abb6 | 38414:67b464da13ec |
---|---|
1 ;;; patcomp.el --- used by patch files to update Emacs releases | 1 ;;; patcomp.el --- used by patch files to update Emacs releases |
2 | |
3 ;; This file is part of GNU Emacs. | |
4 | |
5 ;;; Commentary: | |
6 | |
7 ;;; Code: | |
2 | 8 |
3 (defun batch-byte-recompile-emacs () | 9 (defun batch-byte-recompile-emacs () |
4 "Recompile the Emacs `lisp' directory. | 10 "Recompile the Emacs `lisp' directory. |
5 This is used after installing the patches for a new version." | 11 This is used after installing the patches for a new version." |
6 (let ((load-path (list (expand-file-name "lisp")))) | 12 (let ((load-path (list (expand-file-name "lisp")))) |
10 "Compile new files installed in the Emacs `lisp' directory. | 16 "Compile new files installed in the Emacs `lisp' directory. |
11 This is used after installing the patches for a new version. | 17 This is used after installing the patches for a new version. |
12 It uses the command line arguments to specify the files to compile." | 18 It uses the command line arguments to specify the files to compile." |
13 (let ((load-path (list (expand-file-name "lisp")))) | 19 (let ((load-path (list (expand-file-name "lisp")))) |
14 (batch-byte-compile))) | 20 (batch-byte-compile))) |
21 | |
22 ;;; patcomp.el ends here |