Commit 47cf9d3a authored by Karl Heuer's avatar Karl Heuer
Browse files

(byte-compile-file-form-defmumble, display-call-tree): Print ellipsis earlier,

so message logging will fold similar strings.
parent 3ff8ce93
......@@ -1598,7 +1598,7 @@ With argument, insert value in current buffer after the form."
(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 @@ invoked interactively."
(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 "???"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment