mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
so message logging will fold similar strings.
This commit is contained in:
Karl Heuer 1995-02-08 00:43:45 +00:00
parent 3ff8ce9365
commit 47cf9d3a96
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -1598,7 +1598,7 @@ With argument, insert value in current buffer after the form."
(if (memq 'redefine byte-compile-warnings) (if (memq 'redefine byte-compile-warnings)
(byte-compile-arglist-warn form macrop)) (byte-compile-arglist-warn form macrop))
(if byte-compile-verbose (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 (cond (that-one
(if (and (memq 'redefine byte-compile-warnings) (if (and (memq 'redefine byte-compile-warnings)
;; don't warn when compiling the stubs in byte-run... ;; don't warn when compiling the stubs in byte-run...
@ -3032,7 +3032,7 @@ invoked interactively."
(with-output-to-temp-buffer "*Call-Tree*" (with-output-to-temp-buffer "*Call-Tree*"
(set-buffer "*Call-Tree*") (set-buffer "*Call-Tree*")
(erase-buffer) (erase-buffer)
(message "Generating call tree (sorting on %s)..." (message "Generating call tree... (sorting on %s)"
byte-compile-call-tree-sort) byte-compile-call-tree-sort)
(insert "Call tree for " (insert "Call tree for "
(cond ((null byte-compile-current-file) (or filename "???")) (cond ((null byte-compile-current-file) (or filename "???"))