[Emacs-diffs] /srv/bzr/emacs/trunk r108597: * lisp/loadup.el: Count byte-code functions as well.

[Stefan Monnier]

------------------------------------------------------------
revno: 108597
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-13 09:18:59 -0400
message:
  * lisp/loadup.el: Count byte-code functions as well.
modified:
  lisp/ChangeLog
  lisp/loadup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-13 13:16:34 +0000
+++ b/lisp/ChangeLog    2012-06-13 13:18:59 +0000
@@ -1,5 +1,7 @@
 2012-06-13  Stefan Monnier  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/loadup.el'
--- a/lisp/loadup.el    2012-05-30 03:59:42 +0000
+++ b/lisp/loadup.el    2012-06-13 13:18:59 +0000
@@ -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.