;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:17 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/cap-words.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@101 Function for use in `find-word-boundary-function-table'.
Looks for word boundaries before capitals.
(defalias 'capitalized-find-word-boundary #[(pos limit) "\212b\210\303\nX\203#\304\305\n\306#\203\307u\210\2021\304\310\n\306#\210\2021\311\312\n\306#\2041\311\313\n\306#\210)`)\207" [pos case-fold-search limit nil re-search-forward "\\=.\\w*[[:upper:]]" t -1 "\\>" re-search-backward "[[:upper:]]\\w*\\=" "\\<"] 4 (#$ . 563)])
#@76 Assigned to `find-word-boundary-function-table' in Capitalized Words mode.
(defconst capitalized-find-word-boundary-function-table (byte-code "\301\302!\303\304\305#\210)\207" [tab make-char-table nil set-char-table-range t capitalized-find-word-boundary] 4) (#$ . 1006))
#@113 Non-nil if Capitalized-Words mode is enabled.
Use the command `capitalized-words-mode' to change this variable.
(defvar capitalized-words-mode nil (#$ . 1288))
(make-variable-buffer-local 'capitalized-words-mode)
#@1310 Toggle Capitalized Words mode.
With a prefix argument ARG, enable Capitalized Words mode if ARG
is positive, and disable it otherwise.  If called from Lisp,
enable the mode if ARG is omitted or nil.

Capitalized Words mode is a buffer-local minor mode.  When
enabled, a word boundary occurs immediately before an uppercase
letter in a symbol.  This is in addition to all the normal
boundaries given by the syntax and category tables.  There is no
restriction to ASCII.

E.g. the beginning of words in the following identifier are as marked:

  capitalizedWorDD
  ^          ^  ^^

Note that these word boundaries only apply for word motion and
marking commands such as \[forward-word].  This mode does not affect word
boundaries found by regexp matching (`\>', `\w' &c).

This style of identifiers is common in environments like Java ones,
where underscores aren't trendy enough.  Capitalization rules are
sometimes part of the language, e.g. Haskell, which may thus encourage
such a style.  It is appropriate to add `capitalized-words-mode' to
the mode hook for programming language modes in which you encounter
variables like this, e.g. `java-mode-hook'.  It's unlikely to cause
trouble if such identifiers aren't used.

See also `glasses-mode' and `studlify-word'.
Obsoletes `c-forward-into-nomenclature'.
(defalias 'capitalized-words-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\311\304!\210\312\313\n\203$\314\202%\315\"\210\316\317!\203F\305 \2039\305 \232\203F\320\321\n\203C\322\202D\323\"\210)\324 \210\n\207" [#1=#:last-message arg capitalized-words-mode capitalized-find-word-boundary-function-table find-word-boundary-function-table current-message toggle prefix-numeric-value 0 make-local-variable run-hooks capitalized-words-mode-hook capitalized-words-mode-on-hook capitalized-words-mode-off-hook called-interactively-p any message "Capitalized-Words mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1509) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [capitalized-words-mode-map add-minor-mode capitalized-words-mode " Caps" boundp nil provide cap-words] 6)