ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/subword.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@48 Function to call for forward subword movement.
(defvar subword-forward-function 'subword-forward-internal (#$ . 410))
#@49 Function to call for backward subword movement.
(defvar subword-backward-function 'subword-backward-internal (#$ . 534))
#@44 Regexp used by `subword-forward-internal'.
(defvar subword-forward-regexp "\\W*\\(\\([[:upper:]]*\\(\\W\\)?\\)[[:lower:][:digit:]]*\\)" (#$ . 661))
#@45 Regexp used by `subword-backward-internal'.
(defvar subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)\\|\\W\\w+\\)" (#$ . 815))
#@43 Keymap used in `subword-mode' minor mode.
(defvar subword-mode-map (make-sparse-keymap) (#$ . 982))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias capitalized-words-mode subword-mode nil make-obsolete "25.1"] 4)
#@93 Non-nil if Subword mode is enabled.
Use the command `subword-mode' to change this variable.
(defvar subword-mode nil (#$ . 1219))
(make-variable-buffer-local 'subword-mode)
#@1030 Toggle subword movement and editing (Subword mode).
With a prefix argument ARG, enable Subword mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Subword mode is a buffer-local minor mode. Enabling it changes
the definition of a word so that word-based commands stop inside
symbols with mixed uppercase and lowercase letters,
e.g. "GtkWidget", "EmacsFrameClass", "NSGraphicsContext".
Here we call these mixed case symbols `nomenclatures'. Each
capitalized (or completely uppercase) part of a nomenclature is
called a `subword'. Here are some examples:
Nomenclature Subwords
===========================================================
GtkWindow => "Gtk" and "Window"
EmacsFrameClass => "Emacs", "Frame" and "Class"
NSGraphicsContext => "NS", "Graphics" and "Context"
This mode changes the definition of a word so that word commands
treat nomenclature boundaries as word boundaries.
\{subword-mode-map}
(fn &optional ARG)
(defalias 'subword-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\307 \210\310\311\203( \312\202) \313\"\210\314\315!\203M \301 \203= \211\301 \232\203M \316\317\320\203H \321\202I \322#\266\210\323 \210\207" [subword-mode current-message toggle prefix-numeric-value 0 superword-mode -1 subword-setup-buffer run-hooks subword-mode-hook subword-mode-on-hook subword-mode-off-hook called-interactively-p any " in current buffer" message "Subword mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 1400) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@177 Hook run after entering or leaving `subword-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar subword-mode-hook nil (#$ . 3039))
(byte-code "\301\302\303\304\300!\205\n \305\211%\210\306\307\302\305#\210\310\307\302\311#\207" [subword-mode-map add-minor-mode subword-mode " ," boundp nil defalias c-subword-mode make-obsolete "23.2"] 6)
(defvar subword-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local subword-mode-major-mode custom-declare-variable global-subword-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Subword mode is enabled.\nSee the `global-subword-mode' 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 `global-subword-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group convenience :type boolean] 12)
#@356 Toggle Subword mode in all buffers.
With prefix ARG, enable Global Subword mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Subword mode is enabled in all buffers where
`(lambda nil (subword-mode 1))' would do it.
See `subword-mode' for more information on Subword mode.
(fn &optional ARG)
(defalias 'global-subword-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203d \211@r\211q\210\203T \301\321!\210\202\\ \203\\ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203q \325\202r \326\"\210\327\330!\203\234 \331\300!\210\302 \203\212 \211\302 \232\203\234 \332\333\334\305\300!\203\227 \335\202\230 \336#\266\210\337 \210\305\300!\207" [global-subword-mode subword-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-subword-mode-enable-in-buffers find-file-hook global-subword-mode-check-buffers change-major-mode-hook global-subword-mode-cmhh remove-hook buffer-list 1 -1 run-hooks global-subword-mode-hook global-subword-mode-on-hook global-subword-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Subword mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4126) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@184 Hook run after entering or leaving `global-subword-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-subword-mode-hook nil (#$ . 5600))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-subword-mode-map add-minor-mode global-subword-mode nil boundp] 6)
(defvar subword-mode-set-explicitly nil nil)
(make-variable-buffer-local 'subword-mode-set-explicitly)
(defalias 'subword-mode-set-explicitly #[0 "\301\211\207" [subword-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put subword-mode-set-explicitly definition-name global-subword-mode add-hook subword-mode-hook] 4)
(defvar global-subword-mode-buffers nil)
(defalias 'global-subword-mode-enable-in-buffers #[0 "\211\2058 \211@\305!\2031 r\211q\210 \204. \n =\204. \f\203* \304\306!\210\304\307!\210\202. \304\307!\210 )A\266\202\202 \207" [global-subword-mode-buffers subword-mode-set-explicitly subword-mode-major-mode major-mode subword-mode buffer-live-p -1 1] 4])
(put 'global-subword-mode-enable-in-buffers 'definition-name 'global-subword-mode)
(defalias 'global-subword-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-subword-mode-buffers global-subword-mode-enable-in-buffers nil remove-hook post-command-hook global-subword-mode-check-buffers] 3])
(put 'global-subword-mode-check-buffers 'definition-name 'global-subword-mode)
(defalias 'global-subword-mode-cmhh #[0 "p\211\235\203\f \210\202 \211B\210\301\302\303\"\207" [global-subword-mode-buffers add-hook post-command-hook global-subword-mode-check-buffers] 3])
(put 'global-subword-mode-cmhh 'definition-name 'global-subword-mode)
#@187 Do the same as `forward-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `forward-word'.
(fn &optional ARG)
(defalias 'subword-forward #[256 "\211\204 \302\262\303W\203& \211\303\211W\203! \211 \266\211T\262\202 \211`\262\207\303V\203F \211[\303\211W\203A \211 \266\211T\262\202/ \211`\262\207`\207" [subword-forward-function subword-backward-function 1 0] 5 (#$ . 7330) "^p"])
(put 'subword-forward 'CUA 'move)
#@189 Do the same as `backward-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `backward-word'.
(fn &optional ARG)
(defalias 'subword-backward #[256 "\300\206 \301[!\207" [subword-forward 1] 3 (#$ . 7842) "^p"])
#@66 Do the same as `right-word' but on subwords.
(fn &optional ARG)
(defalias 'subword-right #[256 "\300 \301=\203 \302!\207\303!\207" [current-bidi-paragraph-direction left-to-right subword-forward subword-backward] 3 (#$ . 8135) "^p"])
#@65 Do the same as `left-word' but on subwords.
(fn &optional ARG)
(defalias 'subword-left #[256 "\300 \301=\203 \302!\207\303!\207" [current-bidi-paragraph-direction left-to-right subword-backward subword-forward] 3 (#$ . 8379) "^p"])
#@171 Do the same as `mark-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `mark-word'.
(fn ARG)
(defalias 'subword-mark #[257 " =\203 \302\303!\203 \304\212\302 b\210\305!\210`)!\207\306\212\305!\210`)\307\303#\207" [last-command this-command mark t set-mark subword-forward push-mark nil] 5 (#$ . 8622) "p"])
(put 'subword-backward 'CUA 'move)
#@171 Do the same as `kill-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `kill-word'.
(fn ARG)
(defalias 'subword-kill #[257 "\300`\301!\"\207" [kill-region subword-forward] 5 (#$ . 9053) "p"])
#@189 Do the same as `backward-kill-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `backward-kill-word'.
(fn ARG)
(defalias 'subword-backward-kill #[257 "\300[!\207" [subword-kill] 3 (#$ . 9330) "p"])
#@183 Do the same as `transpose-words' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `transpose-words'.
(fn ARG)
(defalias 'subword-transpose #[257 "\300\301\"\207" [transpose-subr subword-forward] 4 (#$ . 9613) "*p"])
#@179 Do the same as `downcase-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `downcase-word'.
(fn ARG)
(defalias 'subword-downcase #[257 "`\300`\301!\"\210\302W\205 \211b\207" [downcase-region subword-forward 0] 6 (#$ . 9909) "p"])
#@175 Do the same as `upcase-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `upcase-word'.
(fn ARG)
(defalias 'subword-upcase #[257 "`\300`\301!\"\210\302W\205 \211b\207" [upcase-region subword-forward 0] 6 (#$ . 10226) "p"])
#@183 Do the same as `capitalize-word' but on subwords.
See the command `subword-mode' for a description of subwords.
Optional argument ARG is the same as for `capitalize-word'.
(fn ARG)
(defalias 'subword-capitalize #[257 "\3001V \301!`\302Y\302\211W\203I \211\203# \303\304!\210\302\224b\210\202& \305 \210`\211T\306 \307\"\210\310\"\210\203> \211\202? b\266\211T\262\202
\266\211?\205R b\266\2030\207\210\311\207" [(search-failed) abs 0 re-search-forward "[[:alpha:]]" subword-backward subword-forward upcase-region downcase-region nil] 13 (#$ . 10536) "p"])
#@45 Keymap used in `superword-mode' minor mode.
(defvar superword-mode-map subword-mode-map (#$ . 11116))
#@97 Non-nil if Superword mode is enabled.
Use the command `superword-mode' to change this variable.
(defvar superword-mode nil (#$ . 11224))
(make-variable-buffer-local 'superword-mode)
#@477 Toggle superword movement and editing (Superword mode).
With a prefix argument ARG, enable Superword mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Superword mode is a buffer-local minor mode. Enabling it changes
the definition of words such that symbols characters are treated
as parts of words: e.g., in `superword-mode',
"this_is_a_symbol" counts as one word.
\{superword-mode-map}
(fn &optional ARG)
(defalias 'superword-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\307 \210\310\311\203( \312\202) \313\"\210\314\315!\203M \301 \203= \211\301 \232\203M \316\317\320\203H \321\202I \322#\266\210\323 \210\207" [superword-mode current-message toggle prefix-numeric-value 0 subword-mode -1 subword-setup-buffer run-hooks superword-mode-hook superword-mode-on-hook superword-mode-off-hook called-interactively-p any " in current buffer" message "Superword mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 11413) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@179 Hook run after entering or leaving `superword-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar superword-mode-hook nil (#$ . 12510))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [superword-mode-map add-minor-mode superword-mode " ²" boundp nil] 6)
(defvar superword-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local superword-mode-major-mode custom-declare-variable global-superword-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Superword mode is enabled.\nSee the `global-superword-mode' 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 `global-superword-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group convenience :type boolean] 12)
#@368 Toggle Superword mode in all buffers.
With prefix ARG, enable Global Superword mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Superword mode is enabled in all buffers where
`(lambda nil (superword-mode 1))' would do it.
See `superword-mode' for more information on Superword mode.
(fn &optional ARG)
(defalias 'global-superword-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203d \211@r\211q\210\203T \301\321!\210\202\\ \203\\ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203q \325\202r \326\"\210\327\330!\203\234 \331\300!\210\302 \203\212 \211\302 \232\203\234 \332\333\334\305\300!\203\227 \335\202\230 \336#\266\210\337 \210\305\300!\207" [global-superword-mode superword-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-superword-mode-enable-in-buffers find-file-hook global-superword-mode-check-buffers change-major-mode-hook global-superword-mode-cmhh remove-hook buffer-list 1 -1 run-hooks global-superword-mode-hook global-superword-mode-on-hook global-superword-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Superword mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 13532) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@186 Hook run after entering or leaving `global-superword-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-superword-mode-hook nil (#$ . 15039))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-superword-mode-map add-minor-mode global-superword-mode nil boundp] 6)
(defvar superword-mode-set-explicitly nil nil)
(make-variable-buffer-local 'superword-mode-set-explicitly)
(defalias 'superword-mode-set-explicitly #[0 "\301\211\207" [superword-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put superword-mode-set-explicitly definition-name global-superword-mode add-hook superword-mode-hook] 4)
(defvar global-superword-mode-buffers nil)
(defalias 'global-superword-mode-enable-in-buffers #[0 "\211\2058 \211@\305!\2031 r\211q\210 \204. \n =\204. \f\203* \304\306!\210\304\307!\210\202. \304\307!\210 )A\266\202\202 \207" [global-superword-mode-buffers superword-mode-set-explicitly superword-mode-major-mode major-mode superword-mode buffer-live-p -1 1] 4])
(put 'global-superword-mode-enable-in-buffers 'definition-name 'global-superword-mode)
(defalias 'global-superword-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-superword-mode-buffers global-superword-mode-enable-in-buffers nil remove-hook post-command-hook global-superword-mode-check-buffers] 3])
(put 'global-superword-mode-check-buffers 'definition-name 'global-superword-mode)
(defalias 'global-superword-mode-cmhh #[0 "p\211\235\203\f \210\202 \211B\210\301\302\303\"\207" [global-superword-mode-buffers add-hook post-command-hook global-superword-mode-check-buffers] 3])
(put 'global-superword-mode-cmhh 'definition-name 'global-superword-mode)
(defalias 'subword-forward-internal #[0 "\203 \303\304!\207\212\305\306\n\305\307#*\203< \310\225`V\203< \304\311\225\311\224ZW\2038 \312\224\2042 \311\225\304\225=\2048 \311\225S\202: \310\225b\207\304v\207" [superword-mode case-fold-search subword-forward-regexp forward-symbol 1 nil re-search-forward t 0 2 3] 4])
(defalias 'subword-backward-internal #[0 "\203 \303\304!\207\212\305\306\n\305\307#*\2035 \310\225\2030 \311\310\225\310\224ZW\2030 `\310\225=\2040 \310\225S\2023 \312\224Tb\207\304v\207" [superword-mode case-fold-search subword-backward-regexp forward-symbol -1 nil re-search-backward t 3 1 0] 4])
#@129 Assigned to `find-word-boundary-function-table' in
`subword-mode' and `superword-mode'; defers to
`subword-find-word-boundary'.
(defconst subword-find-word-boundary-function-table (byte-code "\300\301!\302\303\304#\210\211\207" [make-char-table nil set-char-table-range t subword-find-word-boundary] 5) (#$ . 17452))
#@119 Assigned to `find-word-boundary-function-table' while we're
searching subwords in order to avoid unwanted reentrancy.
(defconst subword-empty-char-table (make-char-table nil) (#$ . 17777))
(defalias 'subword-setup-buffer #[0 "\305\304!\210\204\f \203 \n\202 \211\207" [subword-mode superword-mode subword-find-word-boundary-function-table subword-empty-char-table find-word-boundary-function-table make-local-variable] 2])
#@83 Catch-all handler in `subword-find-word-boundary-function-table'.
(fn POS LIMIT)
(defalias 'subword-find-word-boundary #[514 "\304 \305\306\307\310\311!\312\"\313$\216\212\214W\203% b\210e}\210\n \210\2020 Tb\210d}\210 \210`+\262)\207" [subword-empty-char-table find-word-boundary-function-table subword-forward-function subword-backward-function match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3] 9 (#$ . 18212)])
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [provide subword superword cap-words] 2)
Kontol Shell Bypass