# HG changeset patch # User Karl Heuer # Date 792204225 0 # Node ID 1bd70186f894ed85c24033b59585b74dc998f127 # Parent 535aea7d22a3545582ebf6fd553f28bd5ed4a34f (byte-compile-file-form-defmumble, display-call-tree): Print ellipsis earlier, so message logging will fold similar strings. diff -r 535aea7d22a3 -r 1bd70186f894 lisp/emacs-lisp/bytecomp.el --- a/lisp/emacs-lisp/bytecomp.el Tue Feb 07 23:56:47 1995 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Wed Feb 08 00:43:45 1995 +0000 @@ -1598,7 +1598,7 @@ (if (memq 'redefine byte-compile-warnings) (byte-compile-arglist-warn form macrop)) (if byte-compile-verbose - (message "Compiling %s (%s)..." (or filename "") (nth 1 form))) + (message "Compiling %s... (%s)" (or filename "") (nth 1 form))) (cond (that-one (if (and (memq 'redefine byte-compile-warnings) ;; don't warn when compiling the stubs in byte-run... @@ -3032,7 +3032,7 @@ (with-output-to-temp-buffer "*Call-Tree*" (set-buffer "*Call-Tree*") (erase-buffer) - (message "Generating call tree (sorting on %s)..." + (message "Generating call tree... (sorting on %s)" byte-compile-call-tree-sort) (insert "Call tree for " (cond ((null byte-compile-current-file) (or filename "???"))