diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/chart.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el index 5699d827d4f..1451e1a2af4 100644 --- a/lisp/emacs-lisp/chart.el +++ b/lisp/emacs-lisp/chart.el @@ -680,18 +680,20 @@ SORT-PRED if desired." (symbol-info (nth 1 data)) (misc-info (nth 2 data)) (string-info (nth 3 data)) - (vector-info (nth 4 data)) - (float-info (nth 5 data)) - (interval-info (nth 6 data)) - (buffer-info (nth 7 data)) + (string-bytes-info (nth 4 data)) + ;; (nth 5 data) is not used + (vector-slots-info (nth 6 data)) + (float-info (nth 7 data)) + (interval-info (nth 8 data)) + (buffer-info (nth 9 data)) (names '("conses" "symbols" "miscs" "strings" "vectors" "floats" "intervals" "buffers")) (nums (list (* (nth 1 cons-info) (nth 2 cons-info)) (* (nth 1 symbol-info) (nth 2 symbol-info)) (* (nth 1 misc-info) (nth 2 misc-info)) (+ (* (nth 1 string-info) (nth 2 string-info)) - (nth 3 string-info)) - (nth 3 vector-info) + (nth 2 string-bytes-info)) + (* (nth 1 vector-slots-info) (nth 2 vector-slots-info)) (* (nth 1 float-info) (nth 2 float-info)) (* (nth 1 interval-info) (nth 2 interval-info)) (* (nth 1 buffer-info) (nth 2 buffer-info))))) |