Mercurial > emacs
view lisp/patcomp.el @ 108739:ae0f7dfcf9c9
* net/tramp.el (tramp-do-copy-or-rename-file)
(tramp-handle-file-local-copy, tramp-maybe-open-connection): Tune
`with-progress-reporter' messages.
(tramp-handle-vc-registered):
* net/tramp-fish.el (tramp-fish-handle-file-local-copy)
(tramp-fish-handle-insert-file-contents)
(tramp-fish-maybe-open-connection):
* net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
* net/tramp-imap.el (tramp-imap-do-copy-or-rename-file)
(tramp-imap-handle-insert-file-contents)
(tramp-imap-handle-file-local-copy): Use `with-progress-reporter'.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Fri, 21 May 2010 16:16:42 +0200 |
parents | 1e3a407766b9 |
children | ef719132ddfa |
line wrap: on
line source
;;; 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))) ;; arch-tag: cb299b78-1d6c-4c02-945b-12fa2e856d6f ;;; patcomp.el ends here