* lisp/loadup.el: Count byte-code functions as well.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 920c9efb87478a7c18f0ebc08cad10e903cf6773..d9d75c8d091cc6cd83a89d2099cbd90e16bb43bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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 fae742f6638ea632966ef28870a859d64e5cf4f1..3b2d4e34938dde7feb33c084372600fb73889992 100644 (file)
--- 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.