| Current Path : /usr/share/emacs/24.3/lisp/progmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/progmodes/subword.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/subword.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@48 Function to call for forward subword movement.
(defvar subword-forward-function 'subword-forward-internal (#$ . 560))
#@49 Function to call for backward subword movement.
(defvar subword-backward-function 'subword-backward-internal (#$ . 684))
#@44 Regexp used by `subword-forward-internal'.
(defvar subword-forward-regexp "\\W*\\(\\([[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)" (#$ . 811))
#@45 Regexp used by `subword-backward-internal'.
(defvar subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)\\|\\W\\w+\\)" (#$ . 959))
#@43 Keymap used in `subword-mode' minor mode.
(defvar subword-mode-map (byte-code "\305 \306\307\211\2032 \n@\310 !\311\312 \"\210\313\314\315\316 \"P!) \317\320\321 \"\f#\210)\nA\211\204 *)\207" [map cmd --dolist-tail-- name othercmd make-sparse-keymap (forward-word backward-word mark-word kill-word backward-kill-word transpose-words capitalize-word upcase-word downcase-word) nil symbol-name string-match "\\([[:alpha:]-]+\\)-word[s]?" intern "subword-" match-string 1 define-key vector remap] 6) (#$ . 1126))
#@93 Non-nil if Subword mode is enabled.
Use the command `subword-mode' to change this variable.
(defvar subword-mode nil (#$ . 1651))
(make-variable-buffer-local 'subword-mode)
#@1043 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 remaps
word-based editing commands to subword-based commands that handle
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"
The subword oriented commands activated in this minor mode recognize
subwords in a nomenclature to move between subwords and to edit them
as words.
\{subword-mode-map}
(defalias 'subword-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314!\203@ \303 \2033 \303 \232\203@ \315\316\n\203= \317\202> \320\"\210)\321 \210\n\207" [#1=#:last-message arg subword-mode current-message toggle prefix-numeric-value 0 run-hooks subword-mode-hook subword-mode-on-hook subword-mode-off-hook called-interactively-p any message "Subword mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1832) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\210\304\305\302\303#\210\306\305\302\307#\207" [subword-mode-map add-minor-mode subword-mode 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\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local subword-mode-major-mode custom-declare-variable global-subword-mode nil "Non-nil if Global-Subword mode is enabled.\nSee the command `global-subword-mode' for 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 subword :type boolean] 12)
#@336 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.
(defalias 'global-subword-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203/ \312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\312\320\321\"\210\202C \322\313\314\"\210\322\315\314\"\210\322\316\317\"\210\322\320\321\"\210\323 \324\211 \203n \f@r q\210\n\203^ \305\325!\210\202f
\203f \305\326!\210)\fA\211\204L *\327\330\n\203y \331\202z \332\"\210\333\334!\203\237 \335\302!\210\306 \203\222 \306 \232\203\237 \336\337\n\203\234 \340\202\235 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-subword-mode buf --dolist-tail-- subword-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-subword-mode-enable-in-buffers change-major-mode-after-body-hook find-file-hook global-subword-mode-check-buffers change-major-mode-hook global-subword-mode-cmhh remove-hook buffer-list nil 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" "en" "dis" force-mode-line-update] 4 (#$ . 4177) (list (or current-prefix-arg 'toggle))])
(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 global-subword-mode-buffers nil)
(defalias 'global-subword-mode-enable-in-buffers #[nil "\306\211\205; \n@\307 !\2033 r q\210 \f=\2042
\203, \305\310!\210\305\311!\210\f\2022 \305\311!\210\f)\nA\211\204 \306*\207" [global-subword-mode-buffers buf --dolist-tail-- subword-mode-major-mode major-mode subword-mode nil buffer-live-p -1 1] 3])
(put 'global-subword-mode-enable-in-buffers 'definition-name 'global-subword-mode)
(defalias 'global-subword-mode-check-buffers #[nil "\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 #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list 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)
#@167 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'.
(defalias 'subword-forward #[(&optional arg) "\204 \305\306W\203# \306 \nW\203 \210 T\211\202 `*\207\306V\203A [\306 \nW\203> \f \210 T\211\202/ `*\207`\207" [arg i --dotimes-limit-- subword-forward-function subword-backward-function 1 0] 3 (#$ . 6784) "p"])
(put 'subword-forward 'CUA 'move)
#@169 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'.
(defalias 'subword-backward #[(&optional arg) "\301\206 \302[!\207" [arg subword-forward 1] 2 (#$ . 7267) "p"])
#@161 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'.
(defalias 'subword-mark #[(arg) " =\203 \303\304!\203 \305\212\303 b\210\306\n!\210`)!\207\307\212\306\n!\210`)\310\304#\207" [last-command this-command arg mark t set-mark subword-forward push-mark nil] 4 (#$ . 7556) "p"])
(put 'subword-backward 'CUA 'move)
#@161 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'.
(defalias 'subword-kill #[(arg) "\301`\302!\"\207" [arg kill-region subword-forward] 4 (#$ . 7985) "p"])
#@179 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'.
(defalias 'subword-backward-kill #[(arg) "\301[!\207" [arg subword-kill] 2 (#$ . 8258) "p"])
#@173 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'.
(defalias 'subword-transpose #[(arg) "\301\302\"\207" [arg transpose-subr subword-forward] 3 (#$ . 8537) "*p"])
#@169 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'.
(defalias 'subword-downcase #[(arg) "`\302`\303 !\"\210 \304W\205 b)\207" [start arg downcase-region subword-forward 0] 4 (#$ . 8829) "p"])
#@165 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'.
(defalias 'subword-upcase #[(arg) "`\302`\303 !\"\210 \304W\205 b)\207" [start arg upcase-region subword-forward 0] 4 (#$ . 9147) "p"])
#@173 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'.
(defalias 'subword-capitalize #[(arg) "\306!`\307W?\205\f \310\211\307 \f
W\203[ \203* \311\312\313\310#\210\307\224b\210\202- \314 \210`\211 T \315 \316\"\210\317\"\210 \203O \202Q b\210+\fT\211\202 * ?\205c \nb+\207" [arg advance start count i --dotimes-limit-- abs 0 t re-search-forward "[[:alpha:]]" nil subword-backward subword-forward upcase-region downcase-region p pp np] 5 (#$ . 9457) "p"])
(defalias 'subword-forward-internal #[nil "\212\302\303 \302\304#*\203' \305\225`V\203' \306\307\225\307\224ZW\203# \307\225S\202% \305\225b\207\306v\207" [case-fold-search subword-forward-regexp nil re-search-forward t 0 1 2] 4])
(defalias 'subword-backward-internal #[nil "\212\302\303 \302\304#*\203- \305\225\203( \306\305\225\305\224ZW\203( `\305\225=\204( \305\225S\202+ \307\224Tb\207\310v\207" [case-fold-search subword-backward-regexp nil re-search-backward t 3 1 0 -1] 4])
(provide 'subword)