Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : chart.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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) (#$ . 691))
#@63 Local variable containing the locally displayed chart object.
(defvar chart-local-object nil (#$ . 780))
(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") (#$ . 940))
#@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) (#$ . 1124))
(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] "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 "\303 \205s�	\304\211\203p�\305\306\307@\310@R!!\262\311\3121*�\313 \314V0\202.�\210\2021�\2036�@\2027�\315\"\210\316\317\"\210\n\203`�\203`�\320\321!\203`�\3221Y�\321@\"0\202_�\210\323\324@\"\210\211B\262A\262A\262\202	�\266\204\207" [chart-face-color-list chart-face-pixmap-list chart-face-use-pixmaps display-color-p nil make-face intern "chart-" "-" set-face-background (error) x-display-color-cells 4 "white" set-face-foreground "black" fboundp set-face-background-pixmap (error) message "Cannot set background pixmap %s"] 10) (#$ . 1670))
(defvar chart-mode-hook nil)
(byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\204�\302\305\306\307#\210\300\207" [chart-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar chart-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204�\303\301\302\304\305!#\210\306\307!\204�\303\307\310\311#\210\312\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\207" [chart-mode-abbrev-table chart-mode-map variable-documentation put purecopy "Keymap for `chart-mode'." boundp chart-mode-syntax-table definition-name chart-mode (lambda (#1=#:def-tmp-var) (defvar chart-mode-syntax-table #1#)) make-syntax-table "Syntax table for `chart-mode'." (lambda (#1#) (defvar chart-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `chart-mode'." derived-mode-parent special-mode] 5)
#@239 Define a mode in Emacs for displaying a chart.

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `chart-mode-hook', as the final or penultimate step
during initialization.

\{chart-mode-map}
(defalias 'chart-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2035�\211\321 =\203;�\322\f\323 \"\210\210\324
\325\"\204R�
 =\204R�\326
\325 C#\210\327!\210\330\f!\210
 \331 \210\306\332!\210\333\334\335!\210)\336\337!\207" [delay-mode-hooks major-mode mode-name chart-mode-map chart-mode-syntax-table chart-mode-abbrev-table make-local-variable t special-mode chart-mode "Chart" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put 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] 5 (#$ . 3542) nil])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-p eieio-make-class-predicate chart chart--eieio-childp eieio-make-child-predicate chart-child-p make-obsolete "use (cl-typep ... \\='chart) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal 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)) (:documentation "Superclass for all charts to be displayed in an Emacs buffer.")] 6)
#@62 Create a new object of class type `chart'.

(fn &rest SLOTS)
(defalias 'chart #[128 "\300\301\302#\207" [apply make-instance chart] 5 (#$ . 5491)])
(byte-code "\300\301\302\303#\300\207" [function-put chart compiler-macro chart--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5743)])
#@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\211p)\207" [chart-local-object get-buffer-create format "*%s*" eieio-oref title chart-mode] 7 (#$ . 5968)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\304\323\324$\207" [cl-generic-define-method initialize-instance (:after) ((obj chart) &rest _fields) nil #[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)"] defalias chart-axis-p eieio-make-class-predicate chart-axis chart-axis--eieio-childp eieio-make-child-predicate chart-axis-child-p make-obsolete "use (cl-typep ... \\='chart-axis) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((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)) (:documentation "Superclass used for display of an axis.")] 6)
#@67 Create a new object of class type `chart-axis'.

(fn &rest SLOTS)
(defalias 'chart-axis #[128 "\300\301\302#\207" [apply make-instance chart-axis] 5 (#$ . 7320)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis compiler-macro chart-axis--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 7597)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-axis-range-p eieio-make-class-predicate chart-axis-range chart-axis-range--eieio-childp eieio-make-child-predicate chart-axis-range-child-p make-obsolete "use (cl-typep ... \\='chart-axis-range) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart-axis) ((bounds :initarg :bounds :initform '(0.0 . 50.0))) (:documentation "Class used to display an axis defined by a range of values.")] 6)
#@73 Create a new object of class type `chart-axis-range'.

(fn &rest SLOTS)
(defalias 'chart-axis-range #[128 "\300\301\302#\207" [apply make-instance chart-axis-range] 5 (#$ . 8406)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis-range compiler-macro chart-axis-range--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis-range--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 8713)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-axis-names-p eieio-make-class-predicate chart-axis-names chart-axis-names--eieio-childp eieio-make-child-predicate chart-axis-names-child-p make-obsolete "use (cl-typep ... \\='chart-axis-names) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart-axis) ((items :initarg :items :initform nil)) (:documentation "Class used to display an axis which represents different named items.")] 6)
#@73 Create a new object of class type `chart-axis-names'.

(fn &rest SLOTS)
(defalias 'chart-axis-names #[128 "\300\301\302#\207" [apply make-instance chart-axis-names] 5 (#$ . 9526)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis-names compiler-macro chart-axis-names--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis-names--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 9833)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-sequece-p eieio-make-class-predicate chart-sequece chart-sequece--eieio-childp eieio-make-child-predicate chart-sequece-child-p make-obsolete "use (cl-typep ... \\='chart-sequece) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((data :initarg :data :initform nil) (name :initarg :name :initform "Data")) (:documentation "Class used for all data in different charts.")] 6)
#@70 Create a new object of class type `chart-sequece'.

(fn &rest SLOTS)
(defalias 'chart-sequece #[128 "\300\301\302#\207" [apply make-instance chart-sequece] 5 (#$ . 10634)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-sequece compiler-macro chart-sequece--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart-sequece--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 10927)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-bar-p eieio-make-class-predicate chart-bar chart-bar--eieio-childp eieio-make-child-predicate chart-bar-child-p make-obsolete "use (cl-typep ... \\='chart-bar) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart) ((direction :initarg :direction :initform vertical)) (:documentation "Subclass for bar charts (vertical or horizontal).")] 6)
#@66 Create a new object of class type `chart-bar'.

(fn &rest SLOTS)
(defalias 'chart-bar #[128 "\300\301\302#\207" [apply make-instance chart-bar] 5 (#$ . 11691)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-bar compiler-macro chart-bar--anon-cmacro] 4)
#@26

(fn WHOLE &rest SLOTS)
(defalias 'chart-bar--anon-cmacro #[385 "\211@;\204�\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 11964)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\316\302\327\330\331%\210\300\332\302\333\302\334%\210\300\316\302\335\330\336%\210\300\337\302\340\302\341%\210\300\342\302\343\302\344%\210\300\345\302\346\302\347%\210\300\350\302\351\302\352%\207" [cl-generic-define-method chart-draw nil ((c chart) &optional buff) #[513 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\212\203�q\210\314 \210\315\316\317 !\320\"c\210\321!\210\322!\210\323\324!\210\325\306!\210\326!\210\323\327!-\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205�\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 erase-buffer make-string window-height selected-window 10 chart-draw-axis chart-draw-title message "Rendering chart..." sit-for chart-draw-data "Rendering chart...done"] 10 "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer.\n\n(fn C &optional BUFF)"] chart-draw-title ((c chart)) #[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 ((c chart) 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 ((c chart)) #[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 ((a chart-axis) &optional dir margin zone start end) #[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 ((c chart) x) #[514 "\300\211\301\"\302\"\300\303\"\304\305@Z!\305\300\306\"!\305A@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 ((c chart) y) #[514 "\300\211\301\"\302\"\300\303\"\300\304\"\305\306@Z!\306\300\304\"!\306A@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)"] ((a chart-axis-range) &optional dir margin zone _start _end) t #[1794 " \210\300\301\"@\300\301\"A\203�\202�\302\303Z\211\304\300
\305\"\f\"\306\245\245\303\302U\2034�\307\262X\205\330�\310V\203M�\311\312\313\245\"\202c�\314V\203^�\311\315\316\245\"\202c�\311\317\"\262\320=\203\232�\n\\\300\321\"\203~�G[\202�\307\\\211\307W\203\211�\307\262\322\323\300\305\"\"\"\266\202\271�\322\324\300\305\"	\"\325
\300\321\"\203\265�\326\202\266�\307#\"\210`\262c\210\327G!\210\330`\331\300\332\"$\210\\\262\2024�\207" [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] 22 "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 CL--CNM A &optional DIR MARGIN ZONE START END)"] chart-translate-namezone ((c chart) n) #[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)"] ((a chart-axis-names) &optional dir margin zone _start _end) #[1794 " \210\300\301\302\"\203�\202�\300\303\211\211\211\205\343�G\304\246\305U\262\306\301\307\"\"\262\310=\203A�@A\\\304\245\262\202T�@A@Z\304\245\\@G\304\245Z\262\310=\203\227�\n\\\301\311\"\203o�@G[\202s�@G\\\211\305W\203}�\305\262@G\fSV\203\216�\211\f\\\262\312\"\266\202\276�\312\f\\\301\311\"\203\262�\203\256�\313\202\273�\314\202\273�\203\272�\304\202\273�\305\\\"\210`\262@c\210\315@G!\210\316`\317\301\320\"$\210T\262A\262\202�\207" [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] 21 "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 CL--CNM A &optional DIR MARGIN ZONE START END)"] chart-draw-data ((c chart-bar)) #[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\2468\202f�\313W\203\201�\314@$\210\314A$\210\202\227�\314@T$\210\314AT$\210@AU\204\271�\314@TA$\210\314@AT$\210W\203\314�\315B$\210\202\327�\315B$\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 ((c chart) &optional seq axis-label) #[769 "\211\203\217�\300\"\300\301\"@;\2037�\300\301\"\204-�\302\303\304\300\305\"\306\307&\262\2023�\310\311#\210\210\202|�\312\313B\300\301\"\204P�\302\314\304\300\305\"\307\n%\262\211\211\203t�\211@\211@W\203b�\240\210\211AV\203m�\241\210A\266\202\202Q�\210\310\315#\266\316=\203\210�\310\317\320#\210\310#\266\310\321\322\300\321\"C\"#\207" [eieio-oref data make-instance chart-axis-names :name name :items :chart eieio-oset items 0 1 chart-axis-range 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 ((c chart) max) #[514 "\300\301\"\211\211\205%�\211@\300\302\"\211GV\203�S\233\303\241\210\210A\266\202\202�\262\207" [eieio-oref sequences data nil] 8 "Trim all sequences in chart C to be at most MAX elements long.\n\n(fn C MAX)"] chart-sort ((c chart) pred) #[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" eieio-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)"]] 6)
#@231 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 (#$ . 20130)])
#@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\211\302U\203�i\302U\204�\303\304!\210m\203 �\303!\210\302W\203)�\302\262\302W\2032�\302\262\305!U\206E�`j\210\306`\307#\262)\207" [indent-tabs-mode nil 0 newline 1 move-to-column remove-text-properties (face nil)] 9 (#$ . 20651)])
#@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 (#$ . 21030)])
#@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\302Z\303\245	G\303\245Z\\\"\210`\262c\210\304G!\210\305`\306$\207\307Z\303\245G\303\245Z\\GW\205f�\302\\\"\210Hc\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 (#$ . 21213)])
#@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 (#$ . 21754)])
#@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 (#$ . 22046)])
#@399 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 "\300\301\302	\303\304\305&\306=\307\300\310\311\f\312
%\203#�\313\202$�\314#\210\307\300\310\311\n\312%\2039�\314\202:�\313#\210\203E�\315\"\210\250\203O�\316\"\210\317\320!!\210\321!\207" [make-instance chart-bar :title :key-label "8-m" :direction vertical chart-add-sequence chart-sequece :data :name x-axis y-axis chart-sort chart-trim switch-to-buffer chart-new-buffer chart-draw] 18 (#$ . 22421)])
#@37 Test out various charting features.
(defalias 'chart-test-it-all #[0 "\300\301\302\303\304\305\306&\210\307\310!?\205�\311\312!\207" [chart-bar-quickie vertical "Test Bar Chart" ("U1" "ME2" "C3" "B4" "QT" "EZ") "Items" (5 -10 23 20 30 -3) "Values" called-interactively-p any kill-buffer "*Test Bar Chart*"] 7 (#$ . 23288) nil])
#@83 Draw a chart displaying the number of different file extensions in DIR.

(fn DIR)
(defalias 'chart-file-count #[257 "\300\301!\210\302\303\211\304$\305C\306C\211\203[�\211@\307!\310\311	\"!\203&�\305\202'�\211\211\235\203R�\211\203F�GGZ\233\211@T\240\266\202R�B\262\312B\262\266A\266\202\202�\210\313\314\315\316\317\320\321&\207" [message "Collecting statistics..." directory-files nil t "<dir>" 0 file-name-extension file-accessible-directory-p expand-file-name 1 chart-bar-quickie vertical "Files Extension Distribution" "File Extensions" "# of occurrences" 10 #[514 "AAV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 23624) "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 (#$ . 24295) "DDirectory: "])
#@50 Chart the current storage requirements of Emacs.
(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 (#$ . 25124) nil])
#@48 Chart out the size of various important lists.
(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 (#$ . 25494) nil])
#@65 If we are in an rmail summary buffer, then chart out the froms.
(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\202D�B\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 (#$ . 25922) nil])
(provide 'chart)

${this.title}

Code Editor : chart.elc