1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / progmodes /
Filename : glasses.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/glasses.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\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 (#$ . 3853)])
#@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) "\304 \305\216	\n{\306\307\215+\207" [save-match-data-internal beg end str match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) match (byte-code "\304\211\205�\n@\305	\"\203�\306\307\310\"\210\nA\211\204�\304*\207" [glasses-separate-parentheses-exceptions re --dolist-tail-- str nil string-match throw match t] 4)] 2 (#$ . 4139)])
#@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 (#$ . 4705)])
(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 (#$ . 5142)])
#@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 (#$ . 5357)])
#@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 ((byte-code "\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "[A-Z]\\($\\|[^A-Z]\\)" ((byte-code "\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 (#$ . 5695)])
#@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 (#$ . 7374)])
#@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 (#$ . 7673)])
#@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 (#$ . 8682)])
#@93 Non-nil if Glasses mode is enabled.
Use the command `glasses-mode' to change this variable.
(defvar glasses-mode nil (#$ . 8988))
(make-variable-buffer-local 'glasses-mode)
#@315 Minor mode for making identifiers likeThis readable.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.  When this mode is active, it tries to
add virtual separators (like underscores) at places they belong to.
(defalias 'glasses-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\212\214~\210\307ed\"\210\n\203/�\310\311!\210\312\313\314\315\316$\210\2029�\317\311!\210\320\313\314\316#\210*\321\322\n\203D�\323\202E�\324\"\210\325\326!\203f�\303 \203Y�\303 \232\203f�\327\330\n\203c�\331\202d�\332\"\210)\333 \210\n\207" [#1=#:last-message arg glasses-mode current-message toggle prefix-numeric-value 0 glasses-make-unreadable jit-lock-register glasses-change add-hook local-write-file-hooks 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 message "Glasses mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 9168) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\305\211%\210\306\307!\207" [glasses-mode-map add-minor-mode glasses-mode " o^o" boundp nil provide glasses] 6)