scratch/memrep cda3bb3: Adjust some sizes

[Lars Ingebrigtsen]

branch: scratch/memrep
commit cda3bb3b95a6fda60d93e98e99d77fe26cfbedca
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Adjust some sizes
---
 lisp/emacs-lisp/memory-report.el | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 3dc0a53..d4444ef 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -160,7 +160,13 @@
     (memory-report--object-size-1 counted value)))
 
 (cl-defgeneric memory-report--object-size-1 (_counted _value)
-  (memory-report--size 'object))
+  0)
+
+(cl-defmethod memory-report--object-size-1 (_ (_value symbol))
+  (memory-report--size 'symbol))
+
+(cl-defmethod memory-report--object-size-1 (_ (_value buffer))
+  (memory-report--size 'buffer))
 
 (cl-defmethod memory-report--object-size-1 (counted (value string))
   (+ (memory-report--size 'string)
@@ -191,14 +197,6 @@
              (cl-incf total (memory-report--object-size counted elem)))
     total))
 
-(cl-defmethod memory-report--object-size-1 (counted (value integer))
-  ;; There's no context an integer takes up more space?
-  0)
-
-(cl-defmethod memory-report--object-size-1 (counted (value float))
-  ;; There's no context a float takes up more space?
-  0)
-
 (cl-defmethod memory-report--object-size-1 (counted (value hash-table))
   (let ((total (+ (memory-report--size 'vector)
                   (* (memory-report--size 'object) (hash-table-size value)))))
@@ -211,9 +209,6 @@
      value)
     total))
 
-(cl-defmethod memory-report--object-size-1 (_ (_value float))
-  (memory-report--size 'float))
-
 (defun memory-report--format (bytes)
   (setq bytes (/ bytes 1024.0))
   (let ((units '("kB" "MB" "GB" "TB")))