;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@48 Function to call for forward subword movement. (defvar subword-forward-function 'subword-forward-internal (#$ . 84)) #@49 Function to call for backward subword movement. (defvar subword-backward-function 'subword-backward-internal (#$ . 207)) #@44 Regexp used by `subword-forward-internal'. (defvar subword-forward-regexp "\\W*\\(\\([[:upper:]]*\\(\\W\\)?\\)[[:lower:][:digit:]]*\\)" (#$ . 334)) #@45 Regexp used by `subword-backward-internal'. (defvar subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)\\|\\W\\w+\\)" (#$ . 488)) #@43 Keymap used in `subword-mode' minor mode. (defvar subword-mode-map (make-sparse-keymap) (#$ . 655)) (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 (#$ . 892)) (make-variable-buffer-local 'subword-mode) #@1380 Toggle subword movement and editing (Subword mode). This is a minor mode. If called interactively, toggle the `Subword mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `subword-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. 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 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\2039\311\312!\210\313 \210\314\315\203F\316\202G\317\"\210\320\321!\203i\302 \203[\211\302 \232\203i\322\323\203e\324\202f\325\326#\210\210\327 \210\207" [subword-mode local-minor-modes current-message toggle 1 nil t boundp delq superword-mode -1 subword-setup-buffer run-hooks subword-mode-hook subword-mode-on-hook subword-mode-off-hook called-interactively-p any message "Subword mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 1072) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar subword-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316\312\310#\210\317\316\312\320#\210\303\321\322\323#\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.)" custom-type hook standard-value nil add-minor-mode subword-mode " ," boundp defalias c-subword-mode make-obsolete "23.2" global-subword-mode globalized-minor-mode t] 6) (defvar subword-mode-major-mode nil 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 :type boolean :group convenience] 12) #@462 Toggle Subword mode in all buffers. With prefix ARG, enable Global Subword mode if ARG is positive; otherwise, disable it. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. 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 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\204\211@r\211q\210 \203t\302\307!\210\202|\n\203|\302\325!\210)A\266\202\202_\210\326\327\306\301!\203\221\330\202\222\331\"\210\332\333!\203\272\334\301!\210\303 \203\252\211\303 \232\203\272\335\336\306\301!\203\266\337\202\267\340\341#\210\210\342 \210\306\301!\207" [global-minor-modes global-subword-mode subword-mode current-message set-default toggle default-value 1 nil t boundp delq 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 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] 6 (#$ . 4472) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-subword-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode global-subword-mode 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!\2034r\211q\210 \2041\n =\2041\f\203-\304\307!\210\304\310!\210\2021\304\310!\210 )A\266\202\202\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 \266\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#\303\211W\203 \304 \266\211T\262\202\304`\207\303V\203A\211[\303\211W\203>\304 \266\211T\262\202,\304`\207`\207" [subword-forward-function subword-backward-function 1 0 nil] 5 (#$ . 8035) "^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 (#$ . 8503) "^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 (#$ . 8796) "^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 (#$ . 9040) "^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 (#$ . 9283) "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 (#$ . 9679) "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 (#$ . 9956) "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 (#$ . 10239) "*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 (#$ . 10536) "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 (#$ . 10854) "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 "\3001S\301!`\302Y\302\211W\203G\303\203\"\304\305!\210\302\224b\210\202%\306 \210`\211T\307 \310\"\210\311\"\210\203<\211\202=b\266\211T\262\202\f\210\211?\205Ob\266\2030\207\210\303\207" [(search-failed) abs 0 nil re-search-forward "[[:alpha:]]" subword-backward subword-forward upcase-region downcase-region] 12 (#$ . 11164) "p"]) #@45 Keymap used in `superword-mode' minor mode. (defvar superword-mode-map subword-mode-map (#$ . 11743)) #@97 Non-nil if Superword mode is enabled. Use the command `superword-mode' to change this variable. (defvar superword-mode nil (#$ . 11851)) (make-variable-buffer-local 'superword-mode) #@867 Toggle superword movement and editing (Superword mode). This is a minor mode. If called interactively, toggle the `Superword mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `superword-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. Superword mode is a buffer-local minor mode. Enabling it changes the definition of words such that characters which have symbol syntax 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 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\2039\311\312!\210\313 \210\314\315\203F\316\202G\317\"\210\320\321!\203i\302 \203[\211\302 \232\203i\322\323\203e\324\202f\325\326#\210\210\327 \210\207" [superword-mode local-minor-modes current-message toggle 1 nil t boundp delq subword-mode -1 subword-setup-buffer run-hooks superword-mode-hook superword-mode-on-hook superword-mode-off-hook called-interactively-p any message "Superword mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 12040) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar superword-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\303\315\316\317#\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.)" custom-type hook standard-value nil add-minor-mode superword-mode " ²" boundp global-superword-mode globalized-minor-mode t] 6) (defvar superword-mode-major-mode nil 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 :type boolean :group convenience] 12) #@474 Toggle Superword mode in all buffers. With prefix ARG, enable Global Superword mode if ARG is positive; otherwise, disable it. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. 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 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\204\211@r\211q\210 \203t\302\307!\210\202|\n\203|\302\325!\210)A\266\202\202_\210\326\327\306\301!\203\221\330\202\222\331\"\210\332\333!\203\272\334\301!\210\303 \203\252\211\303 \232\203\272\335\336\306\301!\203\266\337\202\267\340\341#\210\210\342 \210\306\301!\207" [global-minor-modes global-superword-mode superword-mode current-message set-default toggle default-value 1 nil t boundp delq 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 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] 6 (#$ . 14876) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-superword-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode global-superword-mode 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!\2034r\211q\210 \2041\n =\2041\f\203-\304\307!\210\304\310!\210\2021\304\310!\210 )A\266\202\202\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 \266\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\207" [make-char-table nil set-char-table-range t subword-find-word-boundary] 5) (#$ . 19154)) #@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) (#$ . 19475)) (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\"\216\212\214W\203b\210e}\210\n \210\202)Tb\210d}\210 \210`+\262)\207" [subword-empty-char-table find-word-boundary-function-table subword-forward-function subword-backward-function match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3]] 6 (#$ . 19910)]) (byte-code "\300\301!\210\300\302!\210\300\303!\207" [provide subword superword cap-words] 2)