ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/easy-mmode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@202 Turn the symbol MODE into a string intended for the user.
If provided, LIGHTER will be used to help choose capitalization by,
replacing its case-insensitive matches with the literal string in LIGHTER.
(defalias 'easy-mmode-pretty-mode-name #[(mode &optional lighter) "\304\305\306\307\310\305\311\312\313 !#!#\314P\305\315\316\n# ;\204! \n\2020 \305\317\312 #\305\320 ! \n\304\211%*\207" [case-fold-search mode name lighter t replace-regexp-in-string "-Minor" " minor" capitalize "toggle-\\|-mode\\'" "" symbol-name " mode" "\\`Global-" "Global " "\\`\\s-+\\|\\s-+\\'" regexp-quote] 9 (#$ . 411)])
(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
#@3361 Define a new minor mode MODE.
This defines the toggle command MODE and (by default) a control variable
MODE (you can override this with the :variable keyword, see below).
DOC is the documentation for the mode toggle command.
The defined mode command takes one optional (prefix) argument.
Interactively with no prefix argument, it toggles the mode.
A prefix argument enables the mode if the argument is positive,
and disables it otherwise.
When called from Lisp, the mode command toggles the mode if the
argument is `toggle', disables the mode if the argument is a
non-positive integer, and enables the mode otherwise (including
if the argument is omitted or nil or a positive integer).
If DOC is nil, give the mode command a basic doc-string
documenting what its argument does.
Optional INIT-VALUE is the initial value of the mode's variable.
Optional LIGHTER is displayed in the mode line when the mode is on.
Optional KEYMAP is the default keymap bound to the mode keymap.
If non-nil, it should be a variable name (whose value is a keymap),
or an expression that returns either a keymap or a list of
(KEY . BINDING) pairs where KEY and BINDING are suitable for
`define-key'. If you supply a KEYMAP argument that is not a
symbol, this macro defines the variable MODE-map and gives it
the value that KEYMAP specifies.
BODY contains code to execute each time the mode is enabled or disabled.
It is executed after toggling the mode, and before running MODE-hook.
Before the actual body code, you can write keyword arguments, i.e.
alternating keywords and values. If you provide BODY, then you must
provide (even if just nil) INIT-VALUE, LIGHTER, and KEYMAP, or provide
at least one keyword argument, or both; otherwise, BODY would be
misinterpreted as the first omitted argument. The following special
keywords are supported (other keywords are passed to `defcustom' if
the minor mode is global):
:group GROUP Custom group name to use in all generated `defcustom' forms.
Defaults to MODE without the possible trailing "-mode".
Don't use this default group name unless you have written a
`defgroup' to define that group properly.
:global GLOBAL If non-nil specifies that the minor mode is not meant to be
buffer-local, so don't make the variable MODE buffer-local.
By default, the mode is buffer-local.
:init-value VAL Same as the INIT-VALUE argument.
Not used if you also specify :variable.
:lighter SPEC Same as the LIGHTER argument.
:keymap MAP Same as the KEYMAP argument.
:require SYM Same as in `defcustom'.
:variable PLACE The location to use instead of the variable MODE to store
the state of the mode. This can be simply a different
named variable, or a generalized variable.
PLACE can also be of the form (GET . SET), where GET is
an expression that returns the current state, and SET is
a function that takes one argument, the new state, and
sets it. If you specify a :variable, this function does
not define a MODE variable (nor any of the terms used
in :variable).
:after-hook A single lisp form which is evaluated after the mode hooks
have been run. It should not be quoted.
For example, you could write
(define-minor-mode foo-mode "If enabled, foo on you!"
:lighter " Foo" :require \='foo :global t :group \='hassle :version "27.5"
...BODY CODE...)
(defalias 'define-minor-mode '(macro . #[(mode doc &optional init-value lighter keymap &rest body) "\306!\203! \203 \n BBB\202 \nD\307\211\307\202@ \306\n!\2034 \n BB\307\211\202@ \306 !\203@ B\307\310\311! \312
! @\313
\n\" A\307\211 B C\307\211 D E\307\211 F G\307\211 H I\314
D J
K
L\315 M\307 N\316@\317P! O\316@\320P! P\316@\321P! Q\307\211 R S\307 T\306 @\211R!\203\325 AR\322=\203\266 \211A\242\202\231 R\323=\203\310 \324 \211A\242!\202\231 R\325=\203\356 \211A\242\211B\203\231
9\203\231 \326
DJ\327\330
DDK\202\231 R\331=\203\377 \211A\242G\202\231 R\332=\203\332 \211A\242DC\202\231 R\333=\203%\333 \211A\242DD\202\231 R\334=\203;E\334 \211A\242D\244E\202\231 R\335=\203N\335 \211A\242DF\202\231 R\336=\203_ \211A\242M\202\231 R\337=\203o \211A\242\202\231 R\340=\203\260 \211A\242\211I\243\211T\203\222T9\204\237\341T!\204\237\342IDJIK\202\231 I@K\343\344IADDJ\202\231 R\345=\203\301 \211A\242N\202\231 RHBH \211A\242HBH\202\231 \203\342 9\203\342 \202\350\316@\346P!SC\204\362\347CD\204\372\350DE\204
\334\330\316\351\352\353@#!DDEF\204\354F\355I\203 \307\202lB\2049\355\356\357
\360\361A
#F\362\330
DDF\202l\363 \205?\364P U\365
\360UA
\211$\366CDEFM\315=?\205b\336MDH\237&)BBBB\367L\370\371GBBV\206\202\360\372A\211S$\373\374\f\375BC\366J\376\377\201` KD\201a BBBC\"\366 \201b \330OD\376K\330PD\330QDFE\376\201c \355B\205\310I?\205\310\201d \330
DD\201e \201f \201g \201` \201h \f\201i BBDE\374\201j B\203\354\353\202\357\201k DC\201l \360\201m A\"\376K\201n BB\201o BBBEEEEDN\205NC#BBB\201p K\257\356\357O\307\360\201q L\"F 9?\205K\357S\374\201r DC\201s BB\360\201t @\"FK:\203\313K@\211 W\327=\203\305KA\211 X:\203\277X@\211 Y:\203\271Y@\211 Z\330=\203\263YA\211 [:\203\255[@ \\[A\211 ]\204\247XA\211 ^\204\241\\\202\243K)\202\251K*\202\257K)\202\265K)\202\273K)\202\301K)\202\307K)\202\315K\211 _9\204\350\n\204\334 \205\201u \201v K\"\202\201w \201x \330_D\330\nD \203\376S\202\n\376\201y \330SDDSE\307
L=?\205\330LD\257D)\257.\207" [init-value keymap lighter body last-message mode keywordp nil make-symbol "last-message" symbol-name easy-mmode-pretty-mode-name setq t intern "-hook" "-on-hook" "-off-hook" :init-value :lighter purecopy :global setq-default default-value quote :extra-args :set :initialize :group :type :require :keymap :variable functionp setf funcall function :after-hook "-map" (:set #'custom-set-minor-mode) (:initialize 'custom-initialize-default) replace-regexp-in-string "-mode\\'" "" (:type 'boolean) progn :autoload-end defvar format "Non-nil if %s is enabled.\nUse the command `%s' to change this variable." make-variable-buffer-local "Non-nil if %s is enabled.\nSee the `%s' command\nfor a description of this minor mode." "\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `%s'." defcustom append defun &optional arg "Toggle %s on or off.\nWith a prefix argument ARG, enable %s if ARG is\npositive, and disable it otherwise. If called from Lisp, enable\nthe mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.\n\\{%s}" (interactive (list (or current-prefix-arg 'toggle))) let ((current-message)) if (eq arg 'toggle) mode-name pretty-name globalp set initialize group type extra-args extra-keywords variable setter getter modefun require after-hook hook hook-on hook-off keyw keymap-sym tmp base-doc-string doc #1=#:x #2=#:x #3=#:x #4=#:x #5=#:x #6=#:x #7=#:x #8=#:x modevar not ((> (prefix-numeric-value arg) 0)) run-hooks (called-interactively-p 'any) customize-mark-as-set unless and (current-message) equal ((current-message)) local " in current buffer" message "%s %%sabled%%s" ("en" "dis") (local) (force-mode-line-update) "Hook run after entering or leaving `%s'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" m ((cond ((keymapp m) m) ((listp m) (easy-mmode-define-keymap m)) (t (error "Invalid keymap %S" m)))) "Keymap for `%s'." error ":lighter and :keymap unsupported with mode expression %S" with-no-warnings add-minor-mode boundp] 27 (#$ . 1081)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\"\210\307\312\311\"\207" [function-put define-minor-mode doc-string-elt 2 put edebug-form-spec (&define name string-or-null-p [&optional [¬ keywordp] sexp &optional [¬ keywordp] sexp &optional [¬ keywordp] sexp] [&rest [keywordp sexp]] def-body) defalias easy-mmode-define-global-mode define-globalized-minor-mode define-global-minor-mode] 4)
#@1222 Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE.
TURN-ON is a function that will be called with no args in every buffer
and that should try to turn MODE on if applicable for that buffer.
KEYS is a list of CL-style keyword arguments. As the minor mode
defined by this function is always global, any :global keyword is
ignored. Other keywords have the same meaning as in `define-minor-mode',
which see. In particular, :group specifies the custom group.
The most useful keywords are those that are passed on to the
`defcustom'. It normally makes no sense to pass the :lighter
or :keymap keywords to `define-globalized-minor-mode', since these
are usually passed to the buffer-local version of the minor mode.
If MODE's set-up depends on the major mode in effect when it was
enabled, then disabling and reenabling MODE should make MODE work
correctly with the current major mode. This is important to
prevent problems with derived modes, that is, major modes that
call another major mode in their body.
When a major mode is initialized, MODE is actually turned on just
after running the major mode's hook. However, MODE is not turned
on if the hook has explicitly disabled it.
(defalias 'define-globalized-minor-mode '(macro . #[(global-mode mode turn-on &rest keys) "\306!\306\n!\307\n! \307! \310\211 @ A\311 \312P! B\311 \313P! C\311 \314P! D\311 \315P! E\311 \316P! F\311 \317P! G\311\306\n!\320P! H\310 I\321J@\211I!\203\231 JAJI\322=\203t @\322J\211AJ\242D\244@\202L I\323=\203\203 JAJ\202L IABAJ\211AJ\242ABA\202L @\204\255 \322\324\311\325\326\327\306\n!#!DD@\330\211\331\332H\333BB\334\324HDDF\335\336\337\f
\fK\n\f&\323\340\341@A\237\342\330\343\344\324CDE\343\345\324DDE\343\346\324EDEF\347\350\324CDE\347\351\324DDE\347\352\324EDE\257\353\354\355\356\342\357\360KDD\361\n\211\362BEFEED#BBBBB\331\363G\364BB\365G\310\366G\367BBF\370\324GD\371\324DF\343\324FD\324GDE\332B\372BB\365C\310\353\356BD\361\373\355\356\374G\374\375H\376BB\342\n\330\n\377B\357\360KDDE\357\360KDDFEE\366H\201L BBFEEF\370\324CD\201M \324DF\365D\310CC\366B\201N BB\347\201O \324DDE\257\370\324DD\201P \324DF\365E\310\201Q \324BD\201R BB\343\201S \324DDE\257\370\324ED\201T \324DF\257.\207" [global-mode global-mode-name mode mode-name pretty-name pretty-global-name symbol-name easy-mmode-pretty-mode-name nil intern "-buffers" "-enable-in-buffers" "-check-buffers" "-cmhh" "-hook" "-set-explicitly" "-major-mode" keywordp :group :global quote replace-regexp-in-string "-mode\\'" "" progn :autoload-end defvar (nil) make-variable-buffer-local define-minor-mode format "Toggle %s in all buffers.\nWith prefix ARG, enable %s if ARG is positive;\notherwise, disable it. If called from Lisp, enable the mode if\nARG is omitted or nil.\n\n%s is enabled in all buffers where\n`%s' would do it.\nSee `%s' for more information on %s." t append if add-hook 'after-change-major-mode-hook 'find-file-hook 'change-major-mode-hook remove-hook 'after-change-major-mode-hook 'find-file-hook 'change-major-mode-hook dolist (buf (buffer-list)) with-current-buffer buf funcall function when (-1) defvar-local (nil) defun setq (t) put 'definition-name (nil) (buffer-live-p buf) unless eq (major-mode) (-1) group extra-keywords MODE-buffers MODE-enable-in-buffers MODE-check-buffers MODE-cmhh minor-MODE-hook MODE-set-explicitly MODE-major-mode keyw keys turn-on (major-mode) 'definition-name (nil) 'post-command-hook 'definition-name add-to-list ((current-buffer)) 'post-command-hook 'definition-name] 30 (#$ . 9188)]))
(function-put 'define-globalized-minor-mode 'doc-string-elt 2)
(defalias 'easy-mmode-set-keymap-parents #[(m parents) "\302 A\203
\303 !\202 @\"\207" [m parents set-keymap-parent make-composed-keymap] 4])
#@590 Return a keymap built from bindings BS.
BS must be a list of (KEY . BINDING) where
KEY and BINDINGS are suitable for `define-key'.
Optional NAME is passed to `make-sparse-keymap'.
Optional map M can be used to modify an existing map.
ARGS is a list of additional keyword arguments.
Valid keywords and arguments are:
:name Name of the keymap; overrides NAME argument.
:dense Non-nil for a dense keymap.
:inherit Parent keymap.
:group Ignored.
:suppress Non-nil to call `suppress-keymap' on keymap,
`nodigits' to suppress digits as prefix arguments.
(defalias 'easy-mmode-define-keymap #[(bs &optional name m args) "\306\211\211 \203R \211A\242 \211A\242 \211 \307=\203\" \f\202N
\310=\203- \f\202N
\311=\2038 \f\202N
\312=\203C \f\202N
\313=\204N \314\315
\"\210*\202 \316!\204r \317 \" \203l \320!\202p \321!\203~ \322\323=\"\210 \306 \211 \203 @\211 @ A \211 :\203\241 \202\244 C\306 \211 \203 @\2119\203\302 \324
!$\210\202\376 \204\334 \316\325
\"!\204\376 \326
#\210\202\376 \325
\"\211 \"?\206\362 \"\247\206\362 \"\327=)\203\376 \326
#\210 A\211 \204\254 , A\211 \204\211 *\316\n!\203!\330\n\"\210\202,\n:\203,\331\n\"\210+\207" [suppress dense inherit args val key nil :name :dense :inherit :suppress :group message "Unknown argument %s in defmap" keymapp append make-keymap make-sparse-keymap suppress-keymap nodigits substitute-key-definition lookup-key define-key undefined set-keymap-parent easy-mmode-set-keymap-parents name m bs b --dolist-tail-- binding keys global-map o] 6 (#$ . 13008)])
#@172 Define a constant M whose value is the result of `easy-mmode-define-keymap'.
The M, BS, and ARGS arguments are as per that function. DOC is
the constant's documentation.
(defalias 'easy-mmode-defmap '(macro . #[(m bs doc &rest args) "\304\305 \306\307\310\311DDE\312\nB\257 F\207" [m bs args doc defconst easy-mmode-define-keymap nil if boundp quote list] 9 (#$ . 14646)]))
(defalias 'easy-mmode-define-syntax #[(css args) "\306\307\310\"!\307\311\" \312 \211 \203?
@\211@\fA \313!\203/ \314\315\"\210\2027 \316\n#\210*
A\211\204 * \203S \317\n 9\203P J\202Q \"\210\n*\207" [args parent st css cs --dolist-tail-- make-syntax-table plist-get :copy :inherit nil sequencep mapc #[(c) "\303 \n#\207" [c syntax st modify-syntax-entry] 4] modify-syntax-entry set-char-table-parent syntax char] 5])
#@113 Define variable ST as a syntax-table.
CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).
(defalias 'easy-mmode-defsyntax '(macro . #[(st css doc &rest args) "\304\305\306\307 \310\nBE FE\207" [st css args doc progn (autoload 'easy-mmode-define-syntax "easy-mmode") defconst easy-mmode-define-syntax list] 8 (#$ . 15472)]))
#@691 Define BASE-next and BASE-prev to navigate in the buffer.
RE determines the places the commands should move point to.
NAME should describe the entities matched by RE. It is used to build
the docstrings of the two functions.
BASE-next also tries to make sure that the whole entry is visible by
searching for its end (by calling ENDFUN if provided or by looking for
the next entry) and recentering if necessary.
ENDFUN should return the end position (with or without moving point).
NARROWFUN non-nil means to check for narrowing before moving, and if
found, do `widen' first and then call NARROWFUN with no args after moving.
BODY is executed after moving to the destination location.
(defalias 'easy-mmode-define-navigation '(macro . #[(base re &optional name endfun narrowfun &rest body) "\306!\307 \310P!\307 \311P!\312
\204 \313\314 \315\316\317
\"\320\321\322\323\n\324B\322\3258D\326BB\f\322\327\3308\331BBD\322\3258D\332\3339\205K \334\3359DD\336BBD\337\340
EF\341\342\343\344\345\333\3469\203i \334\3359DD\202o \3308\347BBD\350BBDC\351BBE\257!:BBBBB\257\352\353 D\354\353DF\314\n\355\316\356
\206\230 \"\357\360\322\361 \362B\f\363\3648\365BB\337\366
EE!:BBBB\257\352\353\nD\367\353DF\257,\207" [base base-name prev-sym next-sym when-narrowed name symbol-name intern "-prev" "-next" #[(body) "\204 \207\302\303 \304\305\306\307DDEF\207" [narrowfun body let ((was-narrowed (prog1 (or (< (- (point-max) (point-min)) (buffer-size))) (widen)))) when was-narrowed funcall function] 8] progn defun (&optional count) format "Go to the next COUNT'th %s." (interactive "p") (unless count (setq count 1)) if (< count 0) ((- count)) looking-at ((setq count (1+ count))) not re-search-forward (nil t count) goto-char or funcall function ((point-max)) user-error "No next %s" (goto-char (match-beginning 0)) when (and (eq (current-buffer) (window-buffer)) (called-interactively-p 'interactive)) let endpt save-excursion (nil t 2) ((point-max)) ((unless (pos-visible-in-window-p endpt nil t) (recenter '(0)))) put quote 'definition-name (&optional count) "Go to the previous COUNT'th %s" (interactive "p") (unless count (setq count 1)) (< count 0) ((- count)) unless re-search-backward (nil t count) "No previous %s" 'definition-name re endfun body] 25 (#$ . 15826)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310!\207" [function-put easy-mmode-define-navigation lisp-indent-function 5 put edebug-form-spec (exp exp exp def-form def-form &rest def-body) provide easy-mmode] 4)
Kontol Shell Bypass