Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
antlr-mode.elc	77.56 KB	-rw-r--r--
asm-mode.elc	7.42 KB	-rw-r--r--
autoconf.elc	4.55 KB	-rw-r--r--
bat-mode.elc	6.56 KB	-rw-r--r--
bug-reference.elc	7.3 KB	-rw-r--r--
cc-align.elc	39.52 KB	-rw-r--r--
cc-awk.elc	17.95 KB	-rw-r--r--
cc-bytecomp.elc	10.56 KB	-rw-r--r--
cc-cmds.elc	97.51 KB	-rw-r--r--
cc-defs.elc	66.37 KB	-rw-r--r--
cc-engine.elc	231.26 KB	-rw-r--r--
cc-fonts.elc	153.13 KB	-rw-r--r--
cc-guess.elc	13.35 KB	-rw-r--r--
cc-langs.elc	110.05 KB	-rw-r--r--
cc-menus.elc	8.05 KB	-rw-r--r--
cc-mode.elc	227.86 KB	-rw-r--r--
cc-styles.elc	16.66 KB	-rw-r--r--
cc-vars.elc	77.01 KB	-rw-r--r--
cfengine.elc	48.18 KB	-rw-r--r--
cmacexp.elc	6.2 KB	-rw-r--r--
compile.elc	92.53 KB	-rw-r--r--
cperl-mode.elc	212.98 KB	-rw-r--r--
cpp.elc	23.2 KB	-rw-r--r--
cwarn.elc	11.9 KB	-rw-r--r--
dcl-mode.elc	50.32 KB	-rw-r--r--
ebnf-abn.elc	6.95 KB	-rw-r--r--
ebnf-bnf.elc	8.02 KB	-rw-r--r--
ebnf-dtd.elc	13.53 KB	-rw-r--r--
ebnf-ebx.elc	8.12 KB	-rw-r--r--
ebnf-iso.elc	7.77 KB	-rw-r--r--
ebnf-otz.elc	8.47 KB	-rw-r--r--
ebnf-yac.elc	7.4 KB	-rw-r--r--
ebnf2ps.elc	121.12 KB	-rw-r--r--
ebrowse.elc	202.8 KB	-rw-r--r--
elisp-mode.elc	58.74 KB	-rw-r--r--
etags.elc	61.3 KB	-rw-r--r--
executable.elc	7.83 KB	-rw-r--r--
f90.elc	95.13 KB	-rw-r--r--
flymake-cc.elc	3.55 KB	-rw-r--r--
flymake-proc.elc	38.04 KB	-rw-r--r--
flymake.elc	63.5 KB	-rw-r--r--
fortran.elc	59.75 KB	-rw-r--r--
gdb-mi.elc	188.72 KB	-rw-r--r--
glasses.elc	10.37 KB	-rw-r--r--
grep.elc	40.95 KB	-rw-r--r--
gud.elc	98.55 KB	-rw-r--r--
hideif.elc	48.36 KB	-rw-r--r--
hideshow.elc	25.56 KB	-rw-r--r--
icon.elc	16.75 KB	-rw-r--r--
idlw-complete-structtag.elc	4.22 KB	-rw-r--r--
idlw-help.elc	35.91 KB	-rw-r--r--
idlw-shell.elc	129.89 KB	-rw-r--r--
idlw-toolbar.elc	27.44 KB	-rw-r--r--
idlwave.elc	250.95 KB	-rw-r--r--
inf-lisp.elc	21.06 KB	-rw-r--r--
js.elc	176.3 KB	-rw-r--r--
ld-script.elc	5.44 KB	-rw-r--r--
m4-mode.elc	6.34 KB	-rw-r--r--
make-mode.elc	62.21 KB	-rw-r--r--
meta-mode.elc	31.41 KB	-rw-r--r--
mixal-mode.elc	36.18 KB	-rw-r--r--
modula2.elc	30.37 KB	-rw-r--r--
octave.elc	63.2 KB	-rw-r--r--
opascal.elc	52.47 KB	-rw-r--r--
pascal.elc	39.22 KB	-rw-r--r--
perl-mode.elc	29.41 KB	-rw-r--r--
prog-mode.elc	15.82 KB	-rw-r--r--
project.elc	17.06 KB	-rw-r--r--
prolog.elc	85.47 KB	-rw-r--r--
ps-mode.elc	33 KB	-rw-r--r--
python.elc	178.17 KB	-rw-r--r--
ruby-mode.elc	63.86 KB	-rw-r--r--
scheme.elc	18.81 KB	-rw-r--r--
sh-script.elc	116.3 KB	-rw-r--r--
simula.elc	44.83 KB	-rw-r--r--
sql.elc	182.59 KB	-rw-r--r--
subword.elc	18.77 KB	-rw-r--r--
tcl.elc	40.14 KB	-rw-r--r--
vera-mode.elc	45.08 KB	-rw-r--r--
verilog-mode.elc	450.39 KB	-rw-r--r--
vhdl-mode.elc	528.7 KB	-rw-r--r--
which-func.elc	10.4 KB	-rw-r--r--
xref.elc	56.91 KB	-rw-r--r--
xscheme.elc	38 KB	-rw-r--r--

Code Editor : glasses.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\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315\316\317\320\321&\210\310\322\312\323\306\301\314\315\316\317\320\321\304\324&
\210\310\325\302\326\306\301\314\327\316\317\320\321&\210\310\330\331\332\306\301\314\333&\210\310\334\335\336\306\301\314\337&\210\310\340\331\341\306\301\314\333\304\342&	\210\310\343\302\344\306\301\314\333\316\317\320\321&\210\310\345\346\347\306\301\314\350\316\317\320\321&\210\310\351\302\352\306\301\314\333&\207" [custom-declare-group glasses nil "Make unreadable code likeThis(one) readable." :version "21.1" :group tools custom-declare-variable glasses-separator "_" "String to be displayed as a visual separator in identifiers.\nIt is used both for adding missing separators and for replacing separators\ndefined by `glasses-original-separator'.  If you don't want to add missing\nseparators, set `glasses-separator' to an empty string.  If you don't want to\nreplace existent separators, set `glasses-original-separator' to an empty\nstring." :type string :set glasses-custom-set :initialize custom-initialize-default glasses-original-separator "String to be displayed as `glasses-separator' in separator positions.\nFor instance, if you set it to \"_\" and set `glasses-separator' to \"-\",\nunderscore separators are displayed as hyphens.\nIf `glasses-original-separator' is an empty string, no such display change is\nperformed." "22.1" glasses-face "Face to be put on capitals of an identifier looked through glasses.\nIf it is nil, no face is placed at the capitalized letter.\n\nFor example, you can set `glasses-separator' to an empty string and\n`glasses-face' to `bold'.  Then unreadable identifiers will have no separators,\nbut will have their capitals in bold." (choice (const :tag "None" nil) face) glasses-separate-parentheses-p t "If non-nil, ensure space between an identifier and an opening parenthesis." boolean glasses-separate-parentheses-exceptions '("^#[	 ]*define[	 ]*[A-Za-z0-9_-]* ?($") "List of regexp that are exceptions for `glasses-separate-parentheses-p'.\nThey are matched to the current line truncated to the point where the\nparenthesis expression starts." (repeat regexp) glasses-separate-capital-groups "If non-nil, try to separate groups of capital letters.\nWhen the value is non-nil, HTMLSomething and IPv6 are displayed\nas HTML_Something and I_Pv6 respectively.  Set the value to nil\nif you prefer to display them unchanged." "24.1" glasses-uncapitalize-p "If non-nil, downcase embedded capital letters in identifiers.\nOnly identifiers starting with lower case letters are affected, letters inside\nother identifiers are unchanged." glasses-uncapitalize-regexp "[a-z]" "Regexp matching beginnings of words to be uncapitalized.\nOnly words starting with this regexp are uncapitalized.\nThe regexp is case sensitive.\nIt has any effect only when `glasses-uncapitalize-p' is non-nil." regexp glasses-convert-on-write-p "If non-nil, remove separators when writing glasses buffer to a file.\nIf you are confused by glasses so much, that you write the separators into code\nduring coding, set this variable to t.  The separators will be removed on each\nfile write then.\n\nNote the removal action does not try to be much clever, so it can remove real\nseparators too."] 14)
#@135 Set value of the variable SYMBOL to VALUE and update overlay categories.
Used in :set parameter of some customized glasses variables.
(defalias 'glasses-custom-set #[(symbol value) "\302	\"\210\303 \207" [symbol value set-default glasses-set-overlay-properties] 3 (#$ . 3701)])
#@120 Tell if (BEG, END) is an exception to `glasses-separate-parentheses-p'.
See `glasses-separate-parentheses-exceptions'.
(defalias 'glasses-parenthesis-exception-p #[(beg end) "\306 \307\216	\n{\31022�\f\311\211
\2050�
@\312
\"\203&�\313\310\314\"\210
A\211
\204�\311*0+\207" [save-match-data-internal beg end str glasses-separate-parentheses-exceptions re match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] match nil string-match throw t --dolist-tail--] 4 (#$ . 3987)])
#@81 Set properties of glasses overlays.
Consider current setting of user variables.
(defalias 'glasses-set-overlay-properties #[nil "\302\303\304\305#\210\302\303\306#\210\302\303\307	#\210\302\310\304\305#\210\302\310\307	#\210\302\311\304\305#\210\302\311\306\312#\207" [glasses-separator glasses-face put glasses evaporate t before-string face glasses-init glasses-parenthesis " "] 4 (#$ . 4512)])
(glasses-set-overlay-properties)
#@55 Return whether OVERLAY is an overlay of glasses mode.
(defalias 'glasses-overlay-p #[(overlay) "\301\302\"\303>\207" [overlay overlay-get category (glasses glasses-init glasses-parenthesis)] 3 (#$ . 4949)])
#@149 Create and return readability overlay over the region from BEG to END.
CATEGORY is the overlay category.  If it is nil, use the `glasses' category.
(defalias 'glasses-make-overlay #[(beg end &optional category) "\304	\"\305\n\303\206
�\306#\210\n)\207" [beg end overlay category make-overlay overlay-put glasses] 4 (#$ . 5164)])
#@58 Make identifiers in the region from BEG to END readable.
(defalias 'glasses-make-readable #[(beg end) "\306\212\307 \310\216\nb\210\311\312\313#\203�\314\315\224\315\225\316#\210\202�\nb\210\311\f\203*�\317\202+�\320\313#\203\201�\321\315!\203;�\315\202<�\322\314
\224
\225\"&
\224b\210'\203}�\307 \323\216\324\325!*\203}�\212\307 \326\216\327\330!\210\324(!+\203}�\331&\332\313#\210\331&\333\321
!\227#\210*\202!�)*\230\204\312�)\334\230\204\312�\nb\210\335)!+\311\336\337+\"\313#\203\311�\315\224b\210\324+!\203\231�\314``T\"&\331&\340*\260#\210)\341\225b\210\202\251�),\205\356�\nb\210\311\342\313#\205\356�\343\344 \315\225\"\204\322�\314\315\224\315\225\345#\210\202\322�,\207" [case-fold-search save-match-data-internal beg end glasses-separate-capital-groups n nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward "\\<\$[A-Z]\$[a-zA-Z]*\$[a-z][A-Z]\\|[A-Z][a-z]\$" t glasses-make-overlay 1 glasses-init "[a-z]\$[A-Z]\$\\|[A-Z]\$[A-Z]\$[a-z]" "[a-z]\$[A-Z]\$" match-string 2 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "[A-Z]\$$\\|[^A-Z]\$" #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-backward "\\<." overlay-put invisible after-string "" regexp-quote format "[a-zA-Z0-9]\$\\(%s\$+\\)[a-zA-Z0-9]" display 0 "[a-zA-Z]_*\$(\$" glasses-parenthesis-exception-p point-at-bol glasses-parenthesis o glasses-uncapitalize-p glasses-uncapitalize-regexp glasses-original-separator glasses-separator original-regexp glasses-separate-parentheses-p] 5 (#$ . 5502)])
#@77 Return identifiers in the region from BEG to END to their unreadable state.
(defalias 'glasses-make-unreadable #[(beg end) "\304	\"\305\211\205 �@\306\n!\203�\307\n!\210A\211\204�\305*\207" [beg end o --dolist-tail-- overlays-in nil glasses-overlay-p delete-overlay] 4 (#$ . 7160)])
#@216 Convert current buffer to unreadable identifiers and return nil.
This function modifies buffer contents, it removes all the separators,
recognized according to the current value of the variable `glasses-separator'.
(defalias 'glasses-convert-to-unreadable #[nil "\203\205�\306\307	!\212	\310\230\204_�eb\210\311\312\313\n\211#\306\314#\203<�\315\316!\203*�\316\202+�\317\320\310\314\306\211\f%\210\f\225b\210)\202�	
\230\204_�eb\210\311\312\321\n\"\306\314#\203_�\320
\306\211\211\316%\210\316\224b\210\202E�\203\204�eb\210\311\322\306\314#\203\204�\323\324 \316\225T\"\204g�\320\310\314\306\211\316%\210\202g�+\306\207" [glasses-convert-on-write-p glasses-separator separator case-fold-search n glasses-original-separator nil regexp-quote "" re-search-forward format "[a-z]\$%s\$[A-Z]\\|[A-Z]\$%s\$[A-Z][a-z]" t match-string 1 2 replace-match "[a-zA-Z0-9]\$%s+\$[a-zA-Z0-9]" "[a-zA-Z]_*\$ \$(" glasses-parenthesis-exception-p point-at-bol glasses-separate-parentheses-p] 6 (#$ . 7459)])
#@48 After-change function updating glass overlays.
(defalias 'glasses-change #[(beg end &optional _old-len) "\212b\210\304 )\212	b\210\305 )\306\n\"\210\307\n\"*\207" [beg end end-line beg-line line-beginning-position line-end-position glasses-make-unreadable glasses-make-readable] 3 (#$ . 8468)])
#@93 Non-nil if Glasses mode is enabled.
Use the command `glasses-mode' to change this variable.
(defvar glasses-mode nil (#$ . 8774))
(make-variable-buffer-local 'glasses-mode)
#@401 Minor mode for making identifiers likeThis readable.

If called interactively, enable Glasses mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

When this mode is active, it tries to add virtual
separators (like underscores) at places they belong to.
(defalias 'glasses-mode #[(&optional arg) "\304 	\305=\203�\n?\202�\306	!\307V\212\214~\210\310ed\"\210\n\203/�\311\312!\210\313\314\315\316\317$\210\2029�\320\312!\210\321\314\315\317#\210*\322\323\n\203D�\324\202E�\325\"\210\326\327!\203j�\304 \203Y�\304 \232\203j�\330\331\332\n\203e�\333\202f�\334#\210))\335 \210\n\207" [#1=#:last-message arg glasses-mode local current-message toggle prefix-numeric-value 0 glasses-make-unreadable jit-lock-register glasses-change add-hook write-file-functions glasses-convert-to-unreadable nil t jit-lock-unregister remove-hook run-hooks glasses-mode-hook glasses-mode-on-hook glasses-mode-off-hook called-interactively-p any " in current buffer" message "Glasses mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 8954) (list (or current-prefix-arg 'toggle))])
(defvar glasses-mode-hook nil)
(byte-code "\301\302N\204\f�\303\301\302\304#\210\305\306\307\310\300!\205�\311\211%\210\312\313!\207" [glasses-mode-map glasses-mode-hook variable-documentation put "Hook run after entering or leaving `glasses-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode glasses-mode " o^o" boundp nil provide glasses] 6)

${this.title}

Code Editor : glasses.elc