aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-02-08 00:43:45 +0000
committerKarl Heuer1995-02-08 00:43:45 +0000
commit47cf9d3a96eb8290087971ef52b813f80e4df1e7 (patch)
tree0f607239dc14de8d04e0e80e02042ff68f9c25cb
parent3ff8ce93658ccf46baf3378b85ea34a1315aa6ab (diff)
downloademacs-47cf9d3a96eb8290087971ef52b813f80e4df1e7.tar.gz
emacs-47cf9d3a96eb8290087971ef52b813f80e4df1e7.zip
(byte-compile-file-form-defmumble, display-call-tree): Print ellipsis earlier,
so message logging will fold similar strings.
-rw-r--r--lisp/emacs-lisp/bytecomp.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 54776e1810c..45d2b9ff726 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1598,7 +1598,7 @@ With argument, insert value in current buffer after the form."
1598 (if (memq 'redefine byte-compile-warnings) 1598 (if (memq 'redefine byte-compile-warnings)
1599 (byte-compile-arglist-warn form macrop)) 1599 (byte-compile-arglist-warn form macrop))
1600 (if byte-compile-verbose 1600 (if byte-compile-verbose
1601 (message "Compiling %s (%s)..." (or filename "") (nth 1 form))) 1601 (message "Compiling %s... (%s)" (or filename "") (nth 1 form)))
1602 (cond (that-one 1602 (cond (that-one
1603 (if (and (memq 'redefine byte-compile-warnings) 1603 (if (and (memq 'redefine byte-compile-warnings)
1604 ;; don't warn when compiling the stubs in byte-run... 1604 ;; don't warn when compiling the stubs in byte-run...
@@ -3032,7 +3032,7 @@ invoked interactively."
3032 (with-output-to-temp-buffer "*Call-Tree*" 3032 (with-output-to-temp-buffer "*Call-Tree*"
3033 (set-buffer "*Call-Tree*") 3033 (set-buffer "*Call-Tree*")
3034 (erase-buffer) 3034 (erase-buffer)
3035 (message "Generating call tree (sorting on %s)..." 3035 (message "Generating call tree... (sorting on %s)"
3036 byte-compile-call-tree-sort) 3036 byte-compile-call-tree-sort)
3037 (insert "Call tree for " 3037 (insert "Call tree for "
3038 (cond ((null byte-compile-current-file) (or filename "???")) 3038 (cond ((null byte-compile-current-file) (or filename "???"))