From ef62b23df5a7007c3d8c74dbca87ba83e9da682e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Jun 2012 09:18:59 -0400 Subject: [PATCH] * lisp/loadup.el: Count byte-code functions as well. --- lisp/ChangeLog | 2 ++ lisp/loadup.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 920c9efb874..d9d75c8d091 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2012-06-13 Stefan Monnier + * loadup.el: Count byte-code functions as well. + * emacs-lisp/byte-opt.el (featurep): Move compiler-macro... * emacs-lisp/bytecomp.el (featurep): ...here (bug#11692). diff --git a/lisp/loadup.el b/lisp/loadup.el index fae742f6638..3b2d4e34938 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -321,6 +321,7 @@ (when (hash-table-p purify-flag) (let ((strings 0) (vectors 0) + (bytecodes 0) (conses 0) (others 0)) (maphash (lambda (k v) @@ -328,10 +329,11 @@ ((stringp k) (setq strings (1+ strings))) ((vectorp k) (setq vectors (1+ vectors))) ((consp k) (setq conses (1+ conses))) + ((byte-code-function-p v) (setq bytecodes (1+ bytecodes))) (t (setq others (1+ others))))) purify-flag) - (message "Pure-hashed: %d strings, %d vectors, %d conses, %d others" - strings vectors conses others))) + (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others" + strings vectors conses bytecodes others))) ;; Avoid error if user loads some more libraries now and make sure the ;; hash-consing hash table is GC'd. -- 2.39.5