diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 15:24:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 15:24:10 +0200 |
| commit | 6a02ca0b8c055c863bf53d9b92e8bea27b0e992f (patch) | |
| tree | 91453ba090fadcc09e6c86f060e8b6c1d6b558a1 /lisp/emacs-lisp | |
| parent | 29ea0803d7fa927a537ce8437944998bf2e0807e (diff) | |
| download | emacs-6a02ca0b8c055c863bf53d9b92e8bea27b0e992f.tar.gz emacs-6a02ca0b8c055c863bf53d9b92e8bea27b0e992f.tar.bz2 emacs-6a02ca0b8c055c863bf53d9b92e8bea27b0e992f.zip | |
Report progress during custom-make-dependencies instead of file count
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 96cff2ebeb2..d34d5d8a7e4 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -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. |