Current File : //usr/local/share/emacs/27.2/lisp/progmodes/subword.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@1091 Toggle subword movement and editing (Subword mode).
If called interactively, enable Subword 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.
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.
(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#\210\303\316\317\320#\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" global-subword-mode globalized-minor-mode t] 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 (#$ . 4316) (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 "\305\211\211\205; \211@\306!\2034 r\211q\210 \2041 \n =\2041 \f\203- \304\307!\210\304\310!\210\2021 \304\310!\210 )A\266\202\202 \262\207" [global-subword-mode-buffers subword-mode-set-explicitly subword-mode-major-mode major-mode subword-mode nil buffer-live-p -1 1] 5])
(put 'global-subword-mode-enable-in-buffers 'definition-name 'global-subword-mode)
(defalias 'global-subword-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-subword-mode-enable-in-buffers 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 (#$ . 7574) "^p"])
#@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 (#$ . 8052) "^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 (#$ . 8345) "^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 (#$ . 8589) "^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 (#$ . 8832) "p"])
#@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 (#$ . 9228) "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 (#$ . 9505) "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 (#$ . 9788) "*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 (#$ . 10084) "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 (#$ . 10402) "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 (#$ . 10712) "p"])
#@45 Keymap used in `superword-mode' minor mode.
(defvar superword-mode-map subword-mode-map (#$ . 11292))
#@97 Non-nil if Superword mode is enabled.
Use the command `superword-mode' to change this variable.
(defvar superword-mode nil (#$ . 11400))
(make-variable-buffer-local 'superword-mode)
#@559 Toggle superword movement and editing (Superword mode).
If called interactively, enable Superword 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.
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 (#$ . 11589) (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%\210\303\312\313\314#\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 global-superword-mode globalized-minor-mode t] 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 (#$ . 13924) (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 "\305\211\211\205; \211@\306!\2034 r\211q\210 \2041 \n =\2041 \f\203- \304\307!\210\304\310!\210\2021 \304\310!\210 )A\266\202\202 \262\207" [global-superword-mode-buffers superword-mode-set-explicitly superword-mode-major-mode major-mode superword-mode nil buffer-live-p -1 1] 5])
(put 'global-superword-mode-enable-in-buffers 'definition-name 'global-superword-mode)
(defalias 'global-superword-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-superword-mode-enable-in-buffers 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) (#$ . 17897))
#@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) (#$ . 18222))
(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 (#$ . 18657)])
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [provide subword superword cap-words] 2)
Mini Shell