mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Report progress during custom-make-dependencies instead of file count

Browse source 
* lisp/cus-dep.el (custom-make-dependencies): Rewrite to use
reporter to report progress instead of how many files we've
processed.

* lisp/emacs-lisp/byte-run.el (byte-compile-info-string): New function.
(byte-compile-info-message): Use it.
This commit is contained in:
Lars Ingebrigtsen 2019-06-18 15:24:10 +02:00
parent 29ea0803d7
commit 6a02ca0b8c
3 changed files with 79 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/byte-run.el
View file

@ -540,9 +540,13 @@ Otherwise, return nil. For internal use only."
(mapconcat (lambda (char) (format "`?\\%c'" char))
sorted ", ")))))
(defun byte-compile-info-string (&rest args)
"Format ARGS in a way that looks pleasing in the compilation output."
(format " %-9s%s" "INFO" (apply #'format args)))
(defun byte-compile-info-message (&rest args)
"Message format ARGS in a way that looks pleasing in the compilation output."
(message " %-9s%s" "INFO" (apply #'format args)))
(message "%s" (apply #'byte-compile-info-string args)))
;; I nuked this because it's not a good idea for users to think of using it.