From 8fbe1cab213763b9122b59cfb92e8cf1da521d2c Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 19 Jan 2015 23:59:44 +0000 Subject: [PATCH] * dgnushack.el (dgnushack-compile-file): New function. (dgnushack-compile): Use it (bug#19514). --- lisp/ChangeLog | 5 +++++ lisp/dgnushack.el | 12 ++++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 233f2debf..3d4bf5985 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-01-19 Paul Eggert + + * dgnushack.el (dgnushack-compile-file): New function. + (dgnushack-compile): Use it (bug#19514). + 2015-01-15 Lars Magne Ingebrigtsen * nntp.el (nntp-send-authinfo): Error out if the password is wrong. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 9d862bdca..46be87606 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -272,6 +272,14 @@ in `defcustom' forms." (equal (nth 1 form) ''nconc)) (setq form (cons 'mapcan (cdr last))))))) +(if (featurep 'emacs) + (defun dgnushack-compile-file (file) + "Byte-compile FILE after reporting that it's being compiled." + (message "Compiling %s..." file) + ;; The Emacs 25 version of it doesn't say much. + (byte-compile-file file)) + (defalias 'dgnushack-compile-file 'byte-compile-file)) + (defun dgnushack-compile-verbosely () "Call dgnushack-compile with warnings ENABLED. If you are compiling patches to gnus, you should consider modifying make.bat to call @@ -349,10 +357,10 @@ This means that every warning will be reported as an error." (if error-on-warn (let ((byte-compile-error-on-warn t)) (unless (ignore-errors - (byte-compile-file file)) + (dgnushack-compile-file file)) (setq compilesuccess nil))) (ignore-errors - (byte-compile-file file))))) + (dgnushack-compile-file file))))) compilesuccess)) (defun dgnushack-recompile () -- 2.11.4.GIT