diff options
| author | Karl Heuer | 1995-02-08 00:43:45 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-02-08 00:43:45 +0000 |
| commit | 47cf9d3a96eb8290087971ef52b813f80e4df1e7 (patch) | |
| tree | 0f607239dc14de8d04e0e80e02042ff68f9c25cb | |
| parent | 3ff8ce93658ccf46baf3378b85ea34a1315aa6ab (diff) | |
| download | emacs-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.el | 4 |
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 "???")) |