From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 13 Jun 2012 13:18:59 +0000 (-0400)
Subject: * lisp/loadup.el: Count byte-code functions as well.
X-Git-Tag: emacs-24.2.90~1199^2~474^2~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef62b23df5a7007c3d8c74dbca87ba83e9da682e;p=emacs.git

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

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  <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 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.