WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/chart.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:27 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/chart.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305#\210\306\211\203,\211@\303N\203%\304N\204%\307\304\303N#\210A\266\202\202\210\310\303\304\311#\207" [require eieio defvaralias chart-map chart-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 7)
#@28 Keymap used in chart mode.
(defvar chart-mode-map (make-sparse-keymap) (#$ . 842))
#@63 Local variable containing the locally displayed chart object.
(defvar chart-local-object nil (#$ . 931))
(make-variable-buffer-local 'chart-local-object)
#@87 Colors to use when generating `chart-face-list'.
Colors will be the background color.
(defvar chart-face-color-list '("red" "green" "blue" "cyan" "yellow" "purple") (#$ . 1091))
#@103 If pixmaps are allowed, display these background pixmaps.
Useful if new Emacs is used on B&W display.
(defvar chart-face-pixmap-list (byte-code "\300\301!\205\f\301 \205\f\302\207" [fboundp display-graphic-p ("dimple1" "scales" "dot" "cross_weave" "boxes" "dimple3")] 2) (#$ . 1276))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable chart-face-use-pixmaps funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil to use fancy pixmaps in the background of chart face colors." :group eieio :type boolean] 8)
#@139 Faces used to colorize charts.
List is limited currently, which is ok since you really can't display
too much in text characters anyways.
(defvar chart-face-list (byte-code "\304\305!\203\305 \202\f\205\226	\nC\306\211C\203\223\211\307\310\311@\312@@R!!\240\210\313@\314\315\316D\317\315\320\314EDC\217\203A@\202B\321\"\210\322@\323\"\210\203\200@\203\200\304\324!\203\200\325\315\326\327\330\331\332	\"\333\"\334\335%D\317\315\326\336\337\331\332!\340\"\341\342%\325EDC\217\210\211@B\262A\262\211@A\240\210\202\266\204\207" [window-system chart-face-color-list chart-face-pixmap-list chart-face-use-pixmaps fboundp display-color-p nil make-face intern "chart-" "-" set-face-background #1=#:err funcall #[0 "\300 \301V\207" [x-display-color-cells 4] 2 "\n\n(fn)"] error #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"] "white" set-face-foreground "black" set-face-background-pixmap #2=#:err make-byte-code 0 "\302\301@\300@@\"\207" vconcat vector [set-face-background-pixmap] 3 "\n\n(fn)" 257 "\301\302\300@@\"\207" [message "Cannot set background pixmap %s"] 4 "\n\n(fn IGNORED)"] 14) (#$ . 1833))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [chart-mode-hook variable-documentation put purecopy "Hook run when entering CHART mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp chart-mode-map definition-name chart-mode] 5)
(defvar chart-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [chart-mode-map variable-documentation put purecopy "Keymap for `chart-mode'." boundp chart-mode-syntax-table definition-name chart-mode] 5)
(defvar chart-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [chart-mode-syntax-table variable-documentation put purecopy "Syntax table for `chart-mode'." chart-mode-abbrev-table definition-name chart-mode] 5)
(defvar chart-mode-abbrev-table (progn (define-abbrev-table 'chart-mode-abbrev-table nil) chart-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [chart-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `chart-mode'." chart-mode derived-mode-parent nil] 5)
#@158 Define a mode in Emacs for displaying a chart.

This mode runs the hook `chart-mode-hook', as the final step
during initialization.

\{chart-mode-map}

(fn)
(defalias 'chart-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315 \210\306\316!\210\317\320\321!\210)\322\323!\207" [delay-mode-hooks major-mode mode-name chart-mode-map chart-mode-syntax-table chart-mode-abbrev-table make-local-variable t kill-all-local-variables chart-mode "CHART" use-local-map set-syntax-table buffer-disable-undo font-lock-global-modes nil font-lock-mode -1 run-mode-hooks chart-mode-hook local-abbrev-table] 2 (#$ . 4224) nil])
#@107 Create a new buffer NAME in which the chart OBJ is displayed.
Returns the newly created buffer.

(fn OBJ)
(defalias 'chart-new-buffer #[257 "r\301\302\303\304\305\"\"!q\210\306 \210\211p)\207" [chart-local-object get-buffer-create format "*%s*" eieio-oref title chart-mode] 7 (#$ . 4868)])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\312\301\313$\210\300\314\302\315\316$\210\300\317\320\321\322$\210\300\323\324\325\326$\210\300\327\302\330\331$\210\300\332\333\334\335$\210\305\336\307\336\337\"\"\210\311\336\302\301\340$\210\305\341\307\341\342\"\"\210\311\341\302\301\343$\210\305\344\307\344\345\"\"\210\311\344\302\301\346$\210\305\347\307\347\350\"\"\210\311\347\302\301\351$\210\305\352\307\352\353\"\"\210\311\352\302\314\354$\210\305\355\307\355\356\"\"\210\311\355\302\301\357$\210\305\360\307\360\361\"\"\210\311\360\302\301\362$\210\305\352\307\352\363\"\"\210\311\352\302\317\364$\210\305\365\307\365\366\"\"\210\311\365\302\301\367$\210\305\352\307\352\370\"\"\210\311\352\302\323\371$\210\305\372\307\372\373\"\"\210\311\372\302\332\374$\210\305\375\307\375\376\"\"\210\311\375\302\301\377$\210\305\201@\307\201@\201A\"\"\210\311\201@\302\301\201B$\210\305\201C\307\201C\201D\"\"\210\311\201C\302\301\201E$\207" [eieio-defclass chart nil ((title :initarg :title :initform "Emacs Chart") (title-face :initarg :title-face :initform 'bold-italic) (x-axis :initarg :x-axis :initform nil) (x-margin :initarg :x-margin :initform 5) (x-width :initarg :x-width) (y-axis :initarg :y-axis :initform nil) (y-margin :initarg :y-margin :initform 5) (y-width :initarg :y-width) (key-label :initarg :key-label :initform "Key") (sequences :initarg :sequences :initform nil)) ("Superclass for all charts to be displayed in an Emacs buffer.") eieio--defalias initialize-instance eieio--defgeneric-init-form "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct." eieio--defmethod :AFTER #[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207" [eieio-oset x-width window-width 10 y-width window-height 12] 7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"] chart-axis ((name :initarg :name :initform "Generic Axis") (loweredge :initarg :loweredge :initform t) (name-face :initarg :name-face :initform 'bold) (labels-face :initarg :labels-face :initform 'italic) (chart :initarg :chart :initform nil)) ("Superclass used for display of an axis.") chart-axis-range (chart-axis) ((bounds :initarg :bounds :initform '(0.0 . 50.0))) ("Class used to display an axis defined by a range of values.") chart-axis-names (chart-axis) ((items :initarg :items :initform nil)) ("Class used to display an axis which represents different named items.") chart-sequece ((data :initarg :data :initform nil) (name :initarg :name :initform "Data")) ("Class used for all data in different charts.") chart-bar (chart) ((direction :initarg :direction :initform vertical)) ("Subclass for bar charts (vertical or horizontal).") chart-draw "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer." #[513 "\212\211\203\211q\210\300 \210\301\302\303\"c\210\304!\210\305!\210\306\307!\210\310\311!\210\312!\210\306\313!)\207" [erase-buffer make-string 100 10 chart-draw-axis chart-draw-title message "Rendering chart..." sit-for 0 chart-draw-data "Rendering chart...done"] 5 "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer.\n\n(fn C &optional BUFF)"] chart-draw-title "Draw a title upon the chart.\nArgument C is the chart object." #[257 "\300\301\302\"\303\304\211\305 \301\306\"&\207" [chart-display-label eieio-oref title horizontal 0 window-width title-face] 10 "Draw a title upon the chart.\nArgument C is the chart object.\n\n(fn C)"] chart-size-in-dir "Return the physical size of chart C in direction DIR." #[514 "\211\300=\203\301\302\"\207\301\303\"\207" [vertical eieio-oref y-width x-width] 5 "Return the physical size of chart C in direction DIR.\n\n(fn C DIR)"] chart-draw-axis "Draw axis into the current buffer defined by chart C." #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\305\300\306\"\307\300\211\n\306\"\310\"?\205&\211\\&\210\305\300\311\"\312\300\211\n\311\"\310\"?\205D\211\\&\207" [eieio-oref y-margin x-margin y-width x-width chart-axis-draw y-axis vertical loweredge x-axis horizontal] 13 "Draw axis into the current buffer defined by chart C.\n\n(fn C)"] chart-axis-draw "Draw some axis for A in direction DIR with MARGIN in boundary.\nZONE is a zone specification.\nSTART and END represent the boundary." #[1537 "\300\203\202\f\301\\$\210\302\303\304\"\203'\305\306#\2023\307=\2032\310\2023\301\303\f\311\"&\207" [chart-draw-line 0 chart-display-label eieio-oref name + 3 horizontal 1 name-face] 15 "Draw some axis for A in direction DIR with MARGIN in boundary.\nZONE is a zone specification.\nSTART and END represent the boundary.\n\n(fn A &optional DIR MARGIN ZONE START END)"] chart-translate-xpos "Translate in chart C the coordinate X into a screen column." #[514 "\300\211\301\"\302\"\300\303\"\304\305@Z!\305\300\306\"!\305A@Z!\245_!\\\207" [eieio-oref x-axis bounds x-margin round float x-width] 10 "Translate in chart C the coordinate X into a screen column.\n\n(fn C X)"] chart-translate-ypos "Translate in chart C the coordinate Y into a screen row." #[514 "\300\211\301\"\302\"\300\303\"\300\304\"\305\306@Z!\306\300\304\"!\306A@Z!\245_!Z\\\207" [eieio-oref y-axis bounds x-margin y-width round float] 11 "Translate in chart C the coordinate Y into a screen row.\n\n(fn C Y)"] "Draw axis information based upon a range to be spread along the edge.\nA is the chart to draw.  DIR is the direction.\nMARGIN, ZONE, START, and END specify restrictions in chart space." #[1537 "\300 \210\301\302\"@\301\302\"A\203\202\303\304Z\211\305\301
\306\"\f\"\307\245\245\304\303U\2033\310\262X\205\327\311V\203L\312\313\314\245\"\202b\315V\203]\312\316\317\245\"\202b\312\320\"\262\321=\203\231\n\\\301\322\"\203}G[\202~\310\\\211\310W\203\210\310\262\323\324\301\306\"\"\"\266\202\270\323\325\301\306\"	\"\326
\301\322\"\203\264\327\202\265\310#\"\210`\262c\210\330G!\210\331`\332\301\333\"$\210\\\262\2023\207" [call-next-method eieio-oref bounds 0 nil chart-size-in-dir chart 4 1 999999 format "%dM" 1000000 999 "%dK" 1000 "%d" vertical loweredge chart-goto-xy chart-translate-ypos chart-translate-xpos + -1 chart-zap-chars put-text-property face labels-face] 21 "Draw axis information based upon a range to be spread along the edge.\nA is the chart to draw.  DIR is the direction.\nMARGIN, ZONE, START, and END specify restrictions in chart space.\n\n(fn A &optional DIR MARGIN ZONE START END)"] chart-translate-namezone "Return a dot-pair representing a positional range for a name.\nThe name in chart C of the Nth name resides.\nAutomatically compensates for direction." #[514 "\300\301\"\211\302=\203\300\303\"\202\300\304\"\302=\203\"\300\305\"\202&\300\306\"\300\302=\2035\300\307\"\202:\300\310\"\311\"G\312\313!\\\313!\245\314\313	!_!\\\315\316\314\317\313
!\\_!#B\207" [eieio-oref direction vertical x-width y-width y-margin x-margin x-axis y-axis items 1.0 float round + -1 1.0] 16 "Return a dot-pair representing a positional range for a name.\nThe name in chart C of the Nth name resides.\nAutomatically compensates for direction.\n\n(fn C N)"] "Draw axis information based upon A range to be spread along the edge.\nOptional argument DIR is the direction of the chart.\nOptional arguments MARGIN, ZONE, START and END specify boundaries of the drawing." #[1537 "\300 \210\301\302\303\"\203\202\301\304\211\211\211\205\342G\305\246\306U\262\307\302\310\"\"\262\311=\203@@A\\\305\245\262\202S@A@Z\305\245\\@G\305\245Z\262\311=\203\226\n\\\302\312\"\203n@G[\202r@G\\\211\306W\203|\306\262@G\fSV\203\215\211\f\\\262\313\"\266\202\275\313\f\\\302\312\"\203\261\203\255\314\202\272\315\202\272\203\271\305\202\272\306\\\"\210`\262@c\210\316@G!\210\317`\320\302\321\"$\210T\262A\262\202\207" [call-next-method 0 eieio-oref items nil 2 1 chart-translate-namezone chart vertical loweredge chart-goto-xy -2 -1 chart-zap-chars put-text-property face labels-face] 20 "Draw axis information based upon A range to be spread along the edge.\nOptional argument DIR is the direction of the chart.\nOptional arguments MARGIN, ZONE, START and END specify boundaries of the drawing.\n\n(fn A &optional DIR MARGIN ZONE START END)"] chart-draw-data "Display the data available in a bar chart C." #[257 "\301\302\"\301\303\"\211\304=\203\305\202\304\205\355\301@\306\"@;\204\346\307\301@\306\"\211\203\344\310\"\304=\203?\311@\"\202E\312@\"\304=\203S\311\307\"\202X\312\307\"\203eG\2468\202f\313W\203\201\314@$\210\314A$\210\202\227\314@T$\210\314AT$\210@AU\204\271\314@TA$\210\314@AT$\210W\203\314\315B$\210\202\327\315B$\210\266T\262\211A\262\202'\266A\262\202\207" [chart-face-list eieio-oref sequences direction vertical horizontal data 0 chart-translate-namezone chart-translate-ypos chart-translate-xpos default chart-draw-line chart-deface-rectangle] 15 "Display the data available in a bar chart C.\n\n(fn C)"] chart-add-sequence "Add to chart object C the sequence object SEQ.\nIf AXIS-LABEL, then the axis stored in C is updated with the bounds of SEQ,\nor is created with the bounds of SEQ." #[769 "\211\203\217\302\"\302\303\"@;\2037\302\303\"\204-\304\305\302\306\"\307\310&\262\2023\311\312#\210\210\202|\313\314B\302\303\"\204P\304	\305\302\306\"\310\n%\262\211\203u\211@@W\203a@\240\210\211@AV\203n@\241\210\211A\262\202P\311\315#\266\316=\203\210\311\317\320#\210\311#\266\311\321\322\302\321\"C\"#\207" [chart-axis-names chart-axis-range eieio-oref data make-instance :name name :items :chart eieio-oset items 0 1 bounds x-axis loweredge nil sequences append] 13 "Add to chart object C the sequence object SEQ.\nIf AXIS-LABEL, then the axis stored in C is updated with the bounds of SEQ,\nor is created with the bounds of SEQ.\n\n(fn C &optional SEQ AXIS-LABEL)"] chart-trim "Trim all sequences in chart C to be at most MAX elements long." #[514 "\300\301\"\211\205#\300@\302\"\211GV\203S\233\303\241\210\210\211A\262\202\207" [eieio-oref sequences data nil] 6 "Trim all sequences in chart C to be at most MAX elements long.\n\n(fn C MAX)"] chart-sort "Sort the data in chart C using predicate PRED.\nSee `chart-sort-matchlist' for more details." #[514 "\300\301\"\211@A@\302\300\303\"@;\203#\304#\210\300\303\"\262\202D\300\303\"@;\203<\304#\210\300\303\"\262\202D\305\306\307!\"\210\300\310\"\311=\203Z\312\300\313\"\314#\202c\312\300\315\"\314#\207" [eieio-oref sequences nil data chart-sort-matchlist error "Sorting of chart %s not supported" object-name direction horizontal eieio-oset y-axis items x-axis] 10 "Sort the data in chart C using predicate PRED.\nSee `chart-sort-matchlist' for more details.\n\n(fn C PRED)"]] 5)
#@230 Sort NAMELST and NUMLST (both sequence objects) based on predicate PRED.
PRED should be the equivalent of '<, except it must expect two
cons cells of the form (NAME . NUM).  See `sort' for more details.

(fn NAMELST NUMLST PRED)
(defalias 'chart-sort-matchlist #[771 "\300\301\302\"\301\302\"\203!@@BB\262A\262\211A\262\202	\303\"\262\300\262\300\262\203F@@B\262@AB\262A\262\202-\304\302\305!#\210\304\302\305!#\207" [nil eieio-oref data sort eieio-oset reverse] 11 (#$ . 16209)])
#@84 Move cursor to position X Y in buffer, and add spaces and CRs if needed.

(fn X Y)
(defalias 'chart-goto-xy #[514 "\301eb\210y\301\262\211\302U\203i\302U\204\303\304!\210m\203#\303!\210\302W\203,\302\262\302W\2035\302\262\305!U\206H`j\210\306`\307#\262)\207" [indent-tabs-mode nil 0 newline 1 move-to-column remove-text-properties (face)] 9 (#$ . 16729)])
#@50 Zap up to N chars without deleting EOLs.

(fn N)
(defalias 'chart-zap-chars #[257 "m?\205\211\300 `ZW\203\301!\207`\300 |\207" [point-at-eol delete-char] 4 (#$ . 17113)])
#@190 Display LABEL in direction DIR in column/row ZONE between START and END.
Optional argument FACE is the property we wish to place on this text.

(fn LABEL DIR ZONE START END &optional FACE)
(defalias 'chart-display-label #[1541 "\300=\203.\301\302Z\303\245	G\303\245Z\\\"\210`\262c\210\304G!\210\305`\306$\207\307Z\303\245G\303\245Z\\GW\205f\302\\\"\210Hc\210\304\310!\210\305`S`\306$\210T\262\202<\207" [horizontal nil chart-goto-xy 2 chart-zap-chars put-text-property face 0 1] 13 (#$ . 17296)])
#@132 Draw a line using line-drawing characters in direction DIR.
Use column or row ZONE between START and END.

(fn DIR ZONE START END)
(defalias 'chart-draw-line #[1028 "\300\301Z\302=\203\303\202\304\"%\207" [chart-display-label make-string vertical 124 45] 10 (#$ . 17837)])
#@141 Colorize a rectangle in direction DIR across range R1 by range R2.
R1 and R2 are dotted pairs.  Colorize it with FACE.

(fn DIR R1 R2 FACE)
(defalias 'chart-deface-rectangle #[1028 "\300=\203\n\202\300=\203\202\211@\211AX\205<\301@\"\210\302``A@ZT\\\303$\210\211T\262\202\207" [vertical chart-goto-xy put-text-property face] 12 (#$ . 18129)])
#@397 Wash over the complex EIEIO stuff and create a nice bar chart.
Create it going in direction DIR ['horizontal 'vertical] with TITLE
using a name sequence NAMELST labeled NAMETITLE with values NUMLST
labeled NUMTITLE.
Optional arguments:
Set the chart's max element display to MAX, and sort lists with
SORT-PRED if desired.

(fn DIR TITLE NAMELST NAMETITLE NUMLST NUMTITLE &optional MAX SORT-PRED)
(defalias 'chart-bar-quickie #[2054 "\302\303	\304\305\306&\307=\310\302	\311\f\312
%\203#\313\202$\314#\210\310\302	\311\n\312%\2039\314\202:\313#\210\203E\315\"\210\250\203O\316\"\210\317\320!!\210\321!\207" [chart-bar chart-sequece make-instance :title :key-label "8-m" :direction vertical chart-add-sequence :data :name x-axis y-axis chart-sort chart-trim switch-to-buffer chart-new-buffer chart-draw] 18 (#$ . 18504)])
#@43 Test out various charting features.

(fn)
(defalias 'chart-test-it-all #[0 "\300\301\302\303\304\305\306&\207" [chart-bar-quickie vertical "Test Bar Chart" ("U1" "ME2" "C3" "B4" "QT" "EZ") "Items" (5 -10 23 20 30 -3) "Values"] 7 (#$ . 19360) nil])
#@83 Draw a chart displaying the number of different file extensions in DIR.

(fn DIR)
(defalias 'chart-file-count #[257 "\300\301\"\204\f\211\302P\262\303\304!\210\305\306\211\307$\310C\311C\203j\300\312@\"\313@P!\2030\310\202;\211\205;@\314\224\314\225O\211\235\203a\211\203WGGZ\233\211@T\240\266\202aB\262\314B\262\266A\262\202\315\316\317\320\321\322\323&\207" [string-match "/$" "/" message "Collecting statistics..." directory-files nil t "<dir>" 0 "[^\\.]\\(\\.[a-zA-Z]+\\|~\\|#\\)$" file-accessible-directory-p 1 chart-bar-quickie vertical "Files Extension Distribution" "File Extensions" "# of occurrences" 10 #[514 "AAV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 19615) "DDirectory: "])
#@52 Display a top usage chart for directory D.

(fn D)
(defalias 'chart-space-usage #[257 "\301\302!\210\303\211\304\305!\211q\210\306 \210\307\310\261\210\301\311\"\210\312ed\313p\303&\210eb\210\301\314!\210\315\316\303\313#\203P\317\224\317\225{\320\224\320\225{B\262\321!\322_B\262\266\202+\204X\323\324!\210\325\326\327\330\"\331\332\333\334&\207" [shell-file-name message "Collecting statistics..." nil get-buffer-create " *du-tmp*" erase-buffer "cd " ";du -sk * \n" "Running `cd %s;du -sk *'..." call-process-region t "Scanning output ..." re-search-forward "^\\([0-9]+\\)[ 	]+\\([^ \n]+\\)$" 2 1 string-to-number 1000 error "No files found!" chart-bar-quickie vertical format "Largest files in %s" "File Name" "File Size" 10 #[514 "AAV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 20344) "DDirectory: "])
#@56 Chart the current storage requirements of Emacs.

(fn)
(defalias 'chart-emacs-storage #[0 "\300 \301\302\303\304\305\"\306\304\307\"\310&\207" [garbage-collect chart-bar-quickie vertical "Emacs Runtime Storage Usage" mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] "Storage Items" #[257 "\211A@\3008_\207" [2] 4 "\n\n(fn X)"] "Bytes"] 9 (#$ . 21173) nil])
#@54 Chart out the size of various important lists.

(fn)
(defalias 'chart-emacs-lists #[0 "\300\301 G\302 G\303 G\304 GF\305\306!\203#\307\310\"\262\307\306 GC\"\262\311\312\313\314\315&\207" [("buffers" "frames" "processes" "faces") buffer-list frame-list process-list face-list fboundp x-display-list append ("x-displays") chart-bar-quickie vertical "Emacs List Size Chart" "Various Lists" "Objects"] 9 (#$ . 21549) nil])
#@71 If we are in an rmail summary buffer, then chart out the froms.

(fn)
(defalias 'chart-rmail-from #[0 "\301=\204\n\302\303!\210\304\211\212eb\210\305\306\304\307#\203I\310\224\310\225{\211\235\311\312\"\210\211\203:GGZ\233\211@T\240\266\202DB\262\310B\262\266\202)\313\314\315\316\317\320\321&\207" [major-mode rmail-summary-mode error "You must invoke chart-rmail-from in an rmail summary buffer" nil re-search-forward "\\-[A-Z][a-z][a-z] +\\(\\w+\\)@\\w+" t 1 message "Scanned username %s" chart-bar-quickie vertical "Username Occurrence in RMAIL box" "User Names" "# of occurrences" 10 #[514 "AAV\207" [] 4 "\n\n(fn A B)"]] 11 (#$ . 21983) nil])
(provide 'chart)
F1l3 Manager
