HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/progmodes/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/progmodes/subword.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 408))
#@49 Function to call for backward subword movement.
(defvar subword-backward-function 'subword-backward-internal (#$ . 532))
#@44 Regexp used by `subword-forward-internal'.
(defvar subword-forward-regexp "\\W*\\(\\([[:upper:]]*\\(\\W\\)?\\)[[:lower:][:digit:]]*\\)" (#$ . 659))
#@45 Regexp used by `subword-backward-internal'.
(defvar subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)\\|\\W\\w+\\)" (#$ . 813))
#@43 Keymap used in `subword-mode' minor mode.
(defvar subword-mode-map (make-sparse-keymap) (#$ . 980))
(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 (#$ . 1217))
(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 (#$ . 1398) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar subword-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\306\311#\210\314\313\306\315#\207" [subword-mode-map subword-mode-hook variable-documentation put "Hook run after entering or leaving `subword-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 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 (#$ . 4190) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-subword-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-subword-mode-map global-subword-mode-hook variable-documentation put "Hook run after entering or leaving `global-subword-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 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!\2031r\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 (#$ . 7467) "^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 (#$ . 7979) "^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 (#$ . 8272) "^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 (#$ . 8516) "^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 (#$ . 8759) "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 (#$ . 9190) "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 (#$ . 9467) "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 (#$ . 9750) "*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 (#$ . 10046) "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 (#$ . 10364) "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?\205Rb\266\2030\207\210\311\207" [(search-failed) abs 0 re-search-forward "[[:alpha:]]" subword-backward subword-forward upcase-region downcase-region nil] 13 (#$ . 10674) "p"])
#@45 Keymap used in `superword-mode' minor mode.
(defvar superword-mode-map subword-mode-map (#$ . 11254))
#@97 Non-nil if Superword mode is enabled.
Use the command `superword-mode' to change this variable.
(defvar superword-mode nil (#$ . 11362))
(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 (#$ . 11551) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar superword-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [superword-mode-map superword-mode-hook variable-documentation put "Hook run after entering or leaving `superword-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 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 (#$ . 13737) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-superword-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-superword-mode-map global-superword-mode-hook variable-documentation put "Hook run after entering or leaving `global-superword-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 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!\2031r\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) (#$ . 17731))
#@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) (#$ . 18056))
(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\2020Tb\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 (#$ . 18491)])
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [provide subword superword cap-words] 2)