1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp / progmodes /
Filename : subword.elc
back
;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@rq\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`\211T\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)