diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-06 08:24:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-06 08:24:56 +0200 |
| commit | 47910420c0fd62976ffa075e35da8a8e3398a836 (patch) | |
| tree | 9222fadb70df7fa9ac38baf4487344905bc65101 | |
| parent | 104dd3b641142671669fc52d33cbcf6cf5f29891 (diff) | |
| download | emacs-47910420c0fd62976ffa075e35da8a8e3398a836.tar.gz | |
Tweak the autoloads scrape output slightly
* lisp/emacs-lisp/autoload.el (batch-update-autoloads--summary):
Output " ..." at the end of the non-concluding lines to signify
that the output continues.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 222a378566f..c76de43be91 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -1170,8 +1170,8 @@ write its autoloads into the specified file instead." (defun batch-update-autoloads--summary (strings) (let ((message "")) (while strings - (when (> (length (concat message " " (car strings))) 68) - (byte-compile-info message t "SCRAPE") + (when (> (length (concat message " " (car strings))) 64) + (byte-compile-info (concat message " ...") t "SCRAPE") (setq message "")) (setq message (if (zerop (length message)) (car strings) |