Current File : //usr/local/share/emacs/27.2/lisp/abbrev.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\322\323&\210\312\324\314\315\325DD\326\322\327\310\303\310\330& \207" [require obarray custom-declare-group abbrev-mode nil "Word abbreviations mode." :link (custom-manual "(emacs)Abbrevs") :group abbrev custom-declare-variable abbrev-file-name funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "abbrev_defs" ".abbrev_defs"] 3] "Default name of file from which to read abbrevs." :initialize custom-initialize-delay :type file only-global-abbrevs #[0 "\300\207" [nil] 1] "Non-nil means user plans to use global abbrevs only.\nThis makes the commands that normally define mode-specific abbrevs\ndefine global abbrevs instead." boolean convenience] 10)
#@399 Toggle Abbrev mode in the current buffer.
If called interactively, enable Abbrev 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.
In Abbrev mode, inserting an abbreviation causes it to expand and
be replaced by its expansion.
(fn &optional ARG)
(defalias 'abbrev-mode #[256 "\301 \302=\203
?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [abbrev-mode current-message toggle prefix-numeric-value 0 run-hooks abbrev-mode-hook abbrev-mode-on-hook abbrev-mode-off-hook called-interactively-p any " in current buffer" message "Abbrev mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1174) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar abbrev-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\303\306\311\312#\210\313\314\315\307#\210\316\211\203H \211@\314N\203A \315N\204A \303\315\314N#\210A\266\202\202' \210\317\314\315\320#\207" [abbrev-mode-map abbrev-mode-hook variable-documentation put "Hook run after entering or leaving `abbrev-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 abbrev-mode nil boundp safe-local-variable booleanp defvaralias edit-abbrevs-map edit-abbrevs-mode-map (saved-value saved-variable-comment) make-obsolete-variable "24.4"] 7)
#@32 Keymap used in `edit-abbrevs'.
(defvar edit-abbrevs-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "" abbrev-edit-save-buffer "" abbrev-edit-save-to-file "" edit-abbrevs-redefine] 5) (#$ . 2801))
#@31 Undefine all defined abbrevs.
(defalias 'kill-all-abbrevs #[0 "\211\205 \211@\301J!\210A\266\202\202 \207" [abbrev-table-name-list clear-abbrev-table] 4 (#$ . 3083) nil])
#@99 Make a new abbrev-table with the same abbrevs as TABLE.
Does not copy property lists.
(fn TABLE)
(defalias 'copy-abbrev-table #[257 "\300 \301\302\303\304\305\306!\307\"\310\311%\"\210\211\207" [make-abbrev-table obarray-map make-byte-code 257 "\301\300\302!JK$\207" vconcat vector [define-abbrev symbol-name] 6 "\n\n(fn SYMBOL)"] 9 (#$ . 3265)])
#@95 Insert after point a description of all defined abbrevs.
Mark is set after the inserted text.
(defalias 'insert-abbrevs #[0 "\301\212\211\203 \211@\302\303\"\210A\266\202\202 \210`)!\207" [abbrev-table-name-list push-mark insert-abbrev-table-description t] 6 (#$ . 3625) nil])
#@205 Display a list of defined abbrevs.
If LOCAL is non-nil, interactively when invoked with a
prefix arg, display only local, i.e. mode-specific, abbrevs.
Otherwise display all abbrevs.
(fn &optional LOCAL)
(defalias 'list-abbrevs #[256 "\300\301!!\207" [display-buffer prepare-abbrev-list-buffer] 4 (#$ . 3914) "P"])
#@54 Value is the name of abbrev table TABLE.
(fn TABLE)
(defalias 'abbrev-table-name #[257 "\301\211\204 \203 @J=\203 @\262A\262\202 \207" [abbrev-table-name-list nil] 5 (#$ . 4236)])
#@24
(fn &optional LOCAL)
(defalias 'prepare-abbrev-list-buffer #[256 "r\302\303!q\210\304 \210\203 \305\306!\307\"\210\202U \310 \211\203; \211@\311J!\203/ \211B\262\2024 \305\307\"\210A\266\202\202 \210\211\237\211\203P \211@\305\307\"\210A\266\202\202> \266\312 \210eb\210\313\310!\210p)\207" [local-abbrev-table abbrev-table-name-list get-buffer-create "*Abbrevs*" erase-buffer insert-abbrev-table-description abbrev-table-name t nil abbrev-table-empty-p edit-abbrevs-mode set-buffer-modified-p] 8 (#$ . 4435)])
#@698 Alter abbrev definitions by editing a list of them.
Selects a buffer containing a list of abbrev definitions with
point located in the abbrev table for the current buffer, and
turns on `edit-abbrevs-mode' in that buffer.
You can edit them and type \<edit-abbrevs-map>\[edit-abbrevs-redefine] to redefine abbrevs
according to your editing.
The abbrevs editing buffer contains a header line for each
abbrev table, which is the abbrev table name in parentheses.
This is followed by one line per abbrev in that table:
NAME USECOUNT EXPANSION HOOK
where NAME and EXPANSION are strings with quotes,
USECOUNT is an integer, and HOOK is any valid function
or may be omitted (it is usually omitted).
(defalias 'edit-abbrevs #[0 "\301!\302\303 !\210\211\205 \304\305\306!\307Q\310\311#\205 \312\225b\207" [local-abbrev-table abbrev-table-name switch-to-buffer prepare-abbrev-list-buffer search-forward "(" symbol-name ")\n\n" nil t 0] 5 (#$ . 4968) nil])
#@56 Redefine abbrevs according to current buffer contents.
(defalias 'edit-abbrevs-redefine #[0 "\214~\210\300\301!\210\302\303!)\207" [define-abbrevs t set-buffer-modified-p nil] 2 (#$ . 5929) nil])
#@275 Define abbrevs according to current visible buffer contents.
See documentation of `edit-abbrevs' for info on the format of the
text you must have in the buffer.
With argument, eliminate all abbrev definitions except
the ones defined from the buffer now.
(fn &optional ARG)
(defalias 'define-abbrevs #[256 "\211\203 \300 \210\212eb\210m?\205\200 \301\302\303\304#\205\200 p\305!\303\211\211\211\211\211\306y\210\306y\210l\204u \305!\262\305!\262\307\232\203J \304\262\305!\262\202M \303\262\305!\262\310\303x\210l?\205` \305!\262\310\303x\210\257B\262\202% \311\"\266 \202 )\207" [kill-all-abbrevs re-search-forward "^(" nil t read 1 (sys) " \n\f" define-abbrev-table] 14 (#$ . 6132) "P"])
#@274 Read abbrev definitions from file written with `write-abbrev-file'.
Optional argument FILE is the name of the file to read;
it defaults to the value of `abbrev-file-name'.
Optional second argument QUIETLY non-nil means don't display a message.
(fn &optional FILE QUIETLY)
(defalias 'read-abbrev-file #[512 "\302\206 \303#\210\303\211\207" [abbrev-file-name abbrevs-changed load nil] 6 (#$ . 6864) (byte-code "\301\302\303\"\304\305$C\207" [abbrev-file-name read-file-name format "Read abbrev file (default %s): " nil t] 5)])
#@224 Read abbrev definitions from file written with `write-abbrev-file'.
Optional argument FILE is the name of the file to read;
it defaults to the value of `abbrev-file-name'.
Does not display any message.
(fn &optional FILE)
(defalias 'quietly-read-abbrev-file #[256 "\300\301\"\207" [read-abbrev-file t] 4 (#$ . 7404)])
#@489 Write all user-level abbrev definitions to a file of Lisp code.
This does not include system abbrevs; it includes only the abbrev tables
listed in listed in `abbrev-table-name-list'.
The file written can be loaded in another session to define the same abbrevs.
The argument FILE is the file name to write. If omitted or nil, the file
specified in `abbrev-file-name' is used.
If VERBOSE is non-nil, display a message indicating where abbrevs
have been saved.
(fn &optional FILE VERBOSE)
(defalias 'write-abbrev-file #[512 "\203 G\304V\204 \262\305\306\307!r\211q\210\310\304\311\312\313!\314\"\315$\216\316\317\n!\320\"\211\203A \211@\321!\203: \322\323\"\210A\266\202\202) \210\324ed\305#\203V \325V\203T \326\202U \327eb\210\330\331 \"c\210\332\323\211\323?\205k \304%*\262)\207" [abbrev-file-name coding-system-for-write abbrev-table-name-list emacs-major-version 0 utf-8 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 sort copy-sequence #[514 "\300!\300!\231\207" [symbol-name] 5 "\n\n(fn S1 S2)"] abbrev--table-symbols insert-abbrev-table-description nil unencodable-char-position 24 utf-8-emacs emacs-mule format ";;-*-coding: %s;-*-\n" write-region] 9 (#$ . 7731) (byte-code "\301\302\303\304!!#C\207" [abbrev-file-name read-file-name "Write abbrev file: " file-name-directory expand-file-name] 5)])
#@78 Save all user-level abbrev definitions in current buffer to FILE.
(fn FILE)
(defalias 'abbrev-edit-save-to-file #[257 "\300 \210\301\302\"\207" [edit-abbrevs-redefine write-abbrev-file t] 4 (#$ . 9138) (byte-code "\301\302\303\304!!#C\207" [abbrev-file-name read-file-name "Save abbrevs to file: " file-name-directory expand-file-name] 5)])
#@134 Save all user-level abbrev definitions in current buffer.
The saved abbrevs are written to the file specified by
`abbrev-file-name'.
(defalias 'abbrev-edit-save-buffer #[0 "\301!\207" [abbrev-file-name abbrev-edit-save-to-file] 2 (#$ . 9490) nil])
#@348 Define mode-specific abbrev for last word(s) before point.
Argument is how many words before point form the expansion;
or zero means the region is the expansion.
A negative argument means to undefine the specified abbrev.
Reads the abbreviation in the minibuffer.
Don't use this function in a Lisp program; use `define-abbrev' instead.
(fn ARG)
(defalias 'add-mode-abbrev #[257 "\303\203 \202 \n\206 \304\305!\306#\207" [only-global-abbrevs global-abbrev-table local-abbrev-table add-abbrev error "No per-mode abbrev table" "Mode"] 5 (#$ . 9746) "p"])
#@398 Define global (all modes) abbrev for last word(s) before point.
The prefix argument specifies the number of words before point that form the
expansion; or zero means the region is the expansion.
A negative argument means to undefine the specified abbrev.
This command uses the minibuffer to read the abbreviation.
Don't use this function in a Lisp program; use `define-abbrev' instead.
(fn ARG)
(defalias 'add-global-abbrev #[257 "\301\302#\207" [global-abbrev-table add-abbrev "Global"] 5 (#$ . 10313) "p"])
#@23
(fn TABLE TYPE ARG)
(defalias 'add-abbrev #[771 "\211\300Y\205 \301`\300U\203 \302 \202 \212[v\210`)\"\303\304\305\203& \306\202' \307#!\262\310\300G\303$\210\203P \311\"\203P \312\305\313\311\n\"#!\205V \314\227#\207" [0 buffer-substring-no-properties mark nil read-string format "%s abbrev for \"%s\": " "Undefine %s abbrev: " set-text-properties abbrev-expansion y-or-n-p "%s expands to \"%s\"; redefine? " define-abbrev] 12 (#$ . 10832)])
#@225 Define last word before point as a mode-specific abbrev.
With prefix argument N, defines the Nth word before point.
This command uses the minibuffer to read the expansion.
Expands the abbreviation after defining it.
(fn N)
(defalias 'inverse-add-mode-abbrev #[257 "\303\203 \202 \n\206 \304\305!\306#\207" [only-global-abbrevs global-abbrev-table local-abbrev-table inverse-add-abbrev error "No per-mode abbrev table" "Mode"] 5 (#$ . 11306) "p"])
#@237 Define last word before point as a global (mode-independent) abbrev.
With prefix argument N, defines the Nth word before point.
This command uses the minibuffer to read the expansion.
Expands the abbreviation after defining it.
(fn N)
(defalias 'inverse-add-global-abbrev #[257 "\301\302#\207" [global-abbrev-table inverse-add-abbrev "Global"] 5 (#$ . 11767) "p"])
#@23
(fn TABLE TYPE ARG)
(defalias 'inverse-add-abbrev #[771 "\300\211\211\211\212[Tv\210\301\302!\210`\262\303v\210`\262\304\"\262)\305\306\307#\300\211\211\310%\262\311\"\203E \312\306\313\311\f\"#!\205T \314\227#\210\212\211b\210\315 )\207" [nil skip-syntax-backward "^w" -1 buffer-substring-no-properties read-string format "%s expansion for \"%s\": " t abbrev-expansion y-or-n-p "%s expands to \"%s\"; redefine? " define-abbrev expand-abbrev] 14 (#$ . 12141)])
#@505 Mark current point as the beginning of an abbrev.
The abbrev to be expanded starts here rather than at beginning of
word. This way, you can expand an abbrev with a prefix: insert
the prefix, use this command, then insert the abbrev.
This command inserts a hyphen after the prefix, and if the abbrev
is subsequently expanded, this hyphen will be removed.
If the prefix is itself an abbrev, this command expands it,
unless ARG is non-nil. Interactively, ARG is the prefix
argument.
(fn &optional ARG)
(defalias 'abbrev-prefix-mark #[256 "\211\204 \302 \210\303 p\304c\207" [abbrev-start-location abbrev-start-location-buffer expand-abbrev point-marker "-"] 2 (#$ . 12634) "P"])
#@207 For abbrev occurrence in the region, offer to expand it.
The user is asked to type `y' or `n' for each occurrence.
A prefix argument means don't query; expand all abbrevs.
(fn START END &optional NOQUERY)
(defalias 'expand-region-abbrevs #[770 "\212b\210dZ\300\211m?\205@ \301v\210`\211\262dZX\205@ \302\303\212\304v\210`)\"\211\262!\203 \204: \305\306\307\"!\203 \310 \210\202 \266\203)\207" [nil 1 abbrev-expansion buffer-substring-no-properties -1 y-or-n-p format-message "Expand `%s'? " expand-abbrev] 10 (#$ . 13325) "r\nP"])
#@63 Get the PROP property of abbrev table TABLE.
(fn TABLE PROP)
(defalias 'abbrev-table-get #[514 "\300\301\"\211\205 \211N\207" [obarray-get ""] 5 (#$ . 13874)])
#@74 Set the PROP property of abbrev table TABLE to VAL.
(fn TABLE PROP VAL)
(defalias 'abbrev-table-put #[771 "\300\301\"\211\302L\210\303#\207" [obarray-put "" nil put] 8 (#$ . 14044)])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [defalias abbrev-get get "Get the property PROP of abbrev ABBREV\n\n(fn ABBREV PROP)" abbrev-put put "Set the property PROP of abbrev ABBREV to value VAL.\nSee `define-abbrev' for the effect of some special properties.\n\n(fn ABBREV PROP VAL)"] 4)
#@49 List of symbols whose values are abbrev tables.
(defvar abbrev-table-name-list '(fundamental-mode-abbrev-table global-abbrev-table) (#$ . 14542))
#@95 Create a new, empty abbrev table object.
PROPS is a list of properties.
(fn &optional PROPS)
(defalias 'make-abbrev-table #[256 "\300 \301\302\303#\210:\203 \301\211A\262\242\211A\262\242#\210\202 \211\207" [obarray-make abbrev-table-put :abbrev-table-modiff 0] 7 (#$ . 14694)])
#@59 Return non-nil if OBJECT is an abbrev table.
(fn OBJECT)
(defalias 'abbrev-table-p #[257 "\300!\205 \301\302\"\247\207" [obarrayp abbrev-table-get :abbrev-table-modiff] 4 (#$ . 14989)])
#@152 Return nil if there are no abbrev symbols in OBJECT.
If IGNORE-SYSTEM is non-nil, system definitions are ignored.
(fn OBJECT &optional IGNORE-SYSTEM)
(defalias 'abbrev-table-empty-p #[513 "\300!\204\n \301\302!\210\3032 \304\305\306\307\310\311!\312\"\313\314%\"0?\207" [abbrev-table-p error "Non abbrev table object" some obarray-map make-byte-code 257 "\301!G\302U\206 \300\205 \303\304\"?\205 \305\306\307\"\207" vconcat vector [symbol-name 0 abbrev-get :system throw some t] 4 "\n\n(fn ABBREV)"] 9 (#$ . 15186)])
#@196 The abbrev table whose abbrevs affect all buffers.
Each buffer may also have a local abbrev table.
If it does, the local table overrides the global one
for any particular abbrev defined in both.
(defvar global-abbrev-table (make-abbrev-table) (#$ . 15721))
#@210 Alist of abbrev tables to use for minor modes.
Each element looks like (VARIABLE . ABBREV-TABLE);
ABBREV-TABLE is active whenever VARIABLE's value is non-nil.
ABBREV-TABLE can also be a list of abbrev tables.
(defvar abbrev-minor-mode-table-alist nil (#$ . 15985))
#@65 The abbrev table of mode-specific abbrevs for Fundamental Mode.
(defvar fundamental-mode-abbrev-table (byte-code "\300 \301\302\"\210\211\207" [make-abbrev-table set-default local-abbrev-table] 4) (#$ . 16256))
#@117 Set non-nil by defining or altering any word abbrevs.
This causes `save-some-buffers' to offer to save the abbrevs.
(defvar abbrevs-changed nil (#$ . 16475))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable abbrev-all-caps funcall function #[0 "\300\207" [nil] 1] "Non-nil means expand multi-word abbrevs all caps if abbrev was so." :type boolean :group abbrev-mode] 8)
#@165 Buffer position for `expand-abbrev' to use as the start of the abbrev.
When nil, use the word before point as the abbrev.
Calling `expand-abbrev' sets this to nil.
(defvar abbrev-start-location nil (#$ . 16890))
#@134 Buffer that `abbrev-start-location' has been set for.
Trying to expand an abbrev in any other buffer clears `abbrev-start-location'.
(defvar abbrev-start-location-buffer nil (#$ . 17109))
#@70 The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'.
(defvar last-abbrev nil (#$ . 17303))
#@98 The exact text of the last abbrev expanded.
It is nil if the abbrev has already been unexpanded.
(defvar last-abbrev-text nil (#$ . 17416))
#@56 The location of the start of the last abbrev expanded.
(defvar last-abbrev-location 0 (#$ . 17562))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301\313\314#\207" [custom-declare-variable pre-abbrev-expand-hook funcall function #[0 "\300\207" [nil] 1] "Function or functions to be called before abbrev expansion is done.\nThis is the first thing that `expand-abbrev' does, and so this may change\nthe current abbrev table before abbrev lookup happens." :type hook :group abbrev-mode make-obsolete-variable abbrev-expand-function "23.1"] 8)
#@75 Undefine all abbrevs in abbrev table TABLE, leaving it empty.
(fn TABLE)
(defalias 'clear-abbrev-table #[257 "\301\302\303\"G\304\211W\203 \211\304I\266\211T\262\202 \266\211\204' \305\306!\210\307\303\"\211\310L\210\311\312!\"\266\313\314\315\314\"T#\266\310\207" [abbrevs-changed t obarray-get "" 0 cl--assertion-failed sym obarray-put nil setplist symbol-plist abbrev-table-put :abbrev-table-modiff abbrev-table-get] 8 (#$ . 18128)])
#@1684 Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.
NAME must be a string, and should be lower-case.
EXPANSION should usually be a string.
To undefine an abbrev, define it with EXPANSION = nil.
If HOOK is non-nil, it should be a function of no arguments;
it is called after EXPANSION is inserted.
If EXPANSION is not a string (and not nil), the abbrev is a
special one, which does not expand in the usual way but only
runs HOOK.
If HOOK is a non-nil symbol with a non-nil `no-self-insert' property,
it can control whether the character that triggered abbrev expansion
is inserted. If such a HOOK returns non-nil, the character is not
inserted. If such a HOOK returns nil, then so does `abbrev-insert'
(and `expand-abbrev'), as if no abbrev expansion had taken place.
PROPS is a property list. The following properties are special:
- `:count': the value for the abbrev's usage-count, which is incremented each
time the abbrev is used (the default is zero).
- `:system': if non-nil, says that this is a "system" abbreviation
which should not be saved in the user's abbreviation file.
Unless `:system' is `force', a system abbreviation will not
overwrite a non-system abbreviation of the same name.
- `:case-fixed': non-nil means that abbreviations are looked up without
case-folding, and the expansion is not capitalized/upcased.
- `:enable-function': a function of no argument which returns non-nil if the
abbrev should be used for a particular call of `expand-abbrev'.
An obsolete but still supported calling form is:
(define-abbrev TABLE NAME EXPANSION &optional HOOK COUNT SYSTEM).
(fn TABLE NAME EXPANSION &optional HOOK &rest PROPS)
(defalias 'define-abbrev #[1155 "\211:\203\" \211@\203 \211@\247\203\" \301@A@\205 \302A@DBB\262\303\301\"\2040 \304\301\305#\262\304\306\307\306\"#\262\303\302\"\310\"\311>\204] \312!\203] \211J\203] \313\302\"\203\236 \204w \312!\203u \211J\232\203u \211K\232\204w \314\211L\210\211M\210\315\316=\203\217 \304\302\314#\202\220 \"\210\317\306\307\n\306\"T#\210\207" [abbrevs-changed :count :system plist-get plist-put 0 :abbrev-table-modiff abbrev-table-get obarray-put (nil force) boundp abbrev-get t setplist force abbrev-table-put] 13 (#$ . 18592)])
#@139 Check if the characters in ABBREV have word syntax in either the
current (if global is nil) or standard syntax table.
(fn ABBREV GLOBAL)
(defalias 'abbrev--check-chars #[514 "\300 p\301\302\303\304\305\"\306\"\307$\216\310\204 \300 \202 \311 !\210\312\313\"\205^ \314\302\312\313#\203J \302\224H\315\"\204B \211B\262\210\211T\262\202) \316\317\320\321\237\"\203Z \322\202[ \323#\266\202)\207" [syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table standard-syntax-table string-match "\\W" nil memql error "Some abbrev characters (%s) are not word constituents %s" apply string "in the standard syntax" "in this mode"] 11 (#$ . 20872)])
#@163 Define ABBREV as a global abbreviation for EXPANSION.
The characters in ABBREV must all be word constituents in the standard
syntax table.
(fn ABBREV EXPANSION)
(defalias 'define-global-abbrev #[514 "\301\302\"\210\303\227#\207" [global-abbrev-table abbrev--check-chars global define-abbrev] 6 (#$ . 21592) "sDefine global abbrev: \nsExpansion for %s: "])
#@161 Define ABBREV as a mode-specific abbreviation for EXPANSION.
The characters in ABBREV must all be word-constituents in the current mode.
(fn ABBREV EXPANSION)
(defalias 'define-mode-abbrev #[514 "\204 \301\302!\210\303\304\"\210\305\227#\207" [local-abbrev-table error "Major mode has no abbrev table" abbrev--check-chars nil define-abbrev] 6 (#$ . 21960) "sDefine mode abbrev: \nsExpansion for %s: "])
#@190 Return the list of abbrev tables currently active.
TABLES if non-nil overrides the usual rules. It can hold
either a single abbrev table or a list of abbrev tables.
(fn &optional TABLES)
(defalias 'abbrev--active-tables #[256 "\211:\203 \207\303!\203 \211C\207<\203 \304 C\"\202 D\n\211\203T \211@\211@9\203M \305@!\203M \211@J\203M \211A<\203G \304A\"\202K \211AB\262A\266\202\202 \210\211\207" [local-abbrev-table global-abbrev-table abbrev-minor-mode-table-alist vectorp append boundp] 7 (#$ . 22377)])
#@281 Return the symbol representing abbrev named ABBREV in TABLE.
This symbol's name is ABBREV, but it is not the canonical symbol of that name;
it is interned in the abbrev-table TABLE rather than the normal obarray.
The value is nil if that abbrev is not defined.
(fn ABBREV TABLE)
(defalias 'abbrev--symbol #[514 "\300\301\"?\302\"\206$ \211\205$ \302\227\"\211\205\" \303\301\"?\205\" \211\262\211J\205* \211\207" [abbrev-table-get :case-fixed obarray-get abbrev-get] 7 (#$ . 22908)])
#@413 Return the symbol representing abbrev named ABBREV.
This symbol's name is ABBREV, but it is not the canonical symbol of that name;
it is interned in an abbrev-table rather than the normal obarray.
The value is nil if that abbrev is not defined.
Optional second arg TABLE is abbrev table to look it up in.
The default is to try buffer's mode-specific abbrev table, then global table.
(fn ABBREV &optional TABLE)
(defalias 'abbrev-symbol #[513 "\300!\301\203$ \211\204$ \211A\262\242\302\303\304\"\"\262\305\"\266\202\202 \207" [abbrev--active-tables nil append abbrev-table-get :parents abbrev--symbol] 9 (#$ . 23407)])
#@191 Return the string that ABBREV expands into in the current buffer.
Optionally specify an abbrev table as second arg;
then ABBREV is looked up in that table only.
(fn ABBREV &optional TABLE)
(defalias 'abbrev-expansion #[513 "\300\"J\207" [abbrev-symbol] 5 (#$ . 24044)])
#@74 Try and find an abbrev before point. Return it if found, nil otherwise.
(defalias 'abbrev--before-point #[0 "p=\204 \302\303 `\302\211\211\211 \203O \262\302dW\203. f\304=\203. \211T|\210S\262\305\306!\210`\262V\205\334 {\262b\210\307\"F\202\334 \203\333 \211@\204\333 \211A\262\242\310\311\"\312\310\313\" \"\262\211\203u \211 \205\321 \310\314\"\211\204\222 `\315v\210`\262\316v\210`^\211\262\262\202\243 \317\320 \"\205\243 \316\224\262\316\225\211\262\262\205\321 {\211\262\205\321 \321\"\211\205\317 \322\311\"\262\203\310 \205\317 \211F\262\262b\266\202O \211\207" [abbrev-start-location-buffer abbrev-start-location nil abbrev--active-tables 45 skip-syntax-backward " " abbrev-symbol abbrev-table-get :enable-function append :parents :regexp -1 1 looking-back line-beginning-position abbrev--symbol abbrev-get] 13 (#$ . 24323)])
#@469 Insert abbrev ABBREV at point.
If non-nil, NAME is the name by which this abbrev was found.
If non-nil, WORDSTART is the place where to insert the abbrev.
If WORDEND is non-nil, the abbrev replaces the previous text between
WORDSTART and WORDEND.
Return ABBREV if the expansion should be considered as having taken place.
The return value can be influenced by a `no-self-insert' property;
see `define-abbrev' for details.
(fn ABBREV &optional NAME WORDSTART WORDEND)
(defalias 'abbrev-insert #[1025 "\204 \302!\262\204 `\262\211\204 \262\303\304\305\304\"T#\210\211J;\203\211 b\210Jc\210\306Z!\210\307\302!\232\204\210 \310\311\"\203\210 \310\312\"\204t \204l \212\313v\210`b\210\314v\210`V)\203l \315`\"\210\202\210 \316`\"\210\202\210 `b\210\317\320S\"\210\315``T\"\210\211b\266)K\203\246 K\211 9\203\244 \211\204\244 \321N\203\244 \307\262\266\211\207" [case-fold-search abbrev-all-caps symbol-name abbrev-put :count abbrev-get delete-char nil string-match "[[:upper:]]" "[[:lower:]]" -1 1 upcase-initials-region upcase-region skip-syntax-forward "^w" no-self-insert] 10 (#$ . 25227)])
#@47 Wrapper hook around `abbrev--default-expand'.
(defvar abbrev-expand-functions nil (#$ . 26360))
(make-obsolete-variable 'abbrev-expand-functions 'abbrev-expand-function "24.4")
#@144 Function that `expand-abbrev' uses to perform abbrev expansion.
Takes no argument and should return the abbrev symbol if expansion took place.
(defvar abbrev-expand-function 'abbrev--default-expand (#$ . 26544))
#@375 Expand the abbrev before point, if there is an abbrev there.
Effective when explicitly called even when `abbrev-mode' is nil.
Before doing anything else, runs `pre-abbrev-expand-hook'.
Calls the value of `abbrev-expand-function' with no argument to do
the work, and returns whatever it does. (That return value should
be the abbrev symbol if expansion occurred, else nil.)
(defalias 'expand-abbrev #[0 "\301\302!\210 \207" [abbrev-expand-function run-hooks pre-abbrev-expand-hook] 2 (#$ . 26763) nil])
#@259 Default function to use for `abbrev-expand-function'.
This also respects the obsolete wrapper hook `abbrev-expand-functions'.
(See `with-wrapper-hook' for details about wrapper hooks.)
Calls `abbrev-insert' to insert any expansion, and returns what it does.
(defalias 'abbrev--default-expand #[0 "\301C\211\302\303\304\305\306!\307\"\310\311%\240\210\211\242\312\300!\205 \313\300!\301#\207" [abbrev-expand-functions nil make-byte-code 771 ":\2030 @\301=\203 \300\242\302A\"\303#\207\304@\305\306\307\310\311\312\300!\313\"\314\315%A##\207\304\316\"\207" vconcat vector [t append nil apply apply-partially make-byte-code 642 "\300\242#\207" vconcat vector [] 7 "\n\n(fn FUNS GLOBAL &rest ARGS)" #[0 "\304 \211@A\211@A\211@A\211@A\n\211\205O \305`\306\"\305\306\"\2040 \307 \2040 \310 \210\311 $V\203M `U\203M b\210\266\202\266\204\207" [noninteractive last-abbrev-text last-abbrev last-abbrev-location abbrev--before-point copy-marker t window-minibuffer-p undo-boundary abbrev-insert] 20]] 12 "\n\n(fn FUNS GLOBAL ARGS)" local-variable-p default-value] 8 (#$ . 27274)])
#@139 Undo the expansion of the last abbrev that expanded.
This differs from ordinary undo in that other editing done since then
is not undone.
(defalias 'unexpand-abbrev #[0 "\212eW\206\n dV?\2050 b\210 ;\2050 \nJ\211;\204! \303\304!\210 c\210``G\\|\210\305\211\262)\207" [last-abbrev-location last-abbrev-text last-abbrev error "Value of abbrev-symbol must be a string" nil] 4 (#$ . 28398) nil])
#@110 Write the abbrev in a `read'able form.
Presumes that `standard-output' points to `current-buffer'.
(fn SYM)
(defalias 'abbrev--write #[257 "\300c\210\301\302!!\210\303c\210\301J!\210\303c\210\301K!\210\304c\210\301\305\306\"!\210\305\307\"\2034 \310c\210\301\305\307\"!\210\305\311\"\203E \312c\210\301\305\311\"!\210\313c\207" [" (" prin1 symbol-name " " " :count " abbrev-get :count :case-fixed " :case-fixed " :enable-function " :enable-function " ")\n"] 5 (#$ . 28803)])
#@12
(fn SYM)
(defalias 'abbrev--describe #[257 "\211J\205D \300\301!!\210\302\303\"\204 \304\305\306\"\210\202\" \307c\210\304\310\306\"\210\300\302\311\"!\210\304\310\306\"\210\300J!\210\211K\203B \304\312\306\"\210\300K!\210\313 \207" [prin1 symbol-name abbrev-get :system indent-to 15 1 " (sys)" 20 :count 45 terpri] 5 (#$ . 29296)])
#@467 Insert before point a full description of abbrev table named NAME.
NAME is a symbol whose value is an abbrev table.
If optional 2nd arg READABLE is non-nil, a human-readable description
is inserted.
If READABLE is nil, an expression is inserted. The expression is
a call to `define-abbrev-table' that when evaluated will define
the abbrev table NAME exactly as it is currently defined.
Abbrevs marked as "system abbrevs" are ignored.
(fn NAME &optional READABLE)
(defalias 'insert-abbrev-table-description #[513 "\301\"\302\303\"\262p\203% \304c\210\305!\210\306c\210\307\310\"\210\311c\210\202A \312c\210\305!\210\211\2046 \313c\210\202A \314c\210\307\315\"\210\316c\210)\317\207" [standard-output abbrev--table-symbols sort string-lessp "(" prin1 ")\n\n" mapc abbrev--describe "\n\n" "(define-abbrev-table '" " '())\n\n" "\n '(\n" abbrev--write " ))\n\n" nil] 6 (#$ . 29644)])
#@195 Return the user abbrev symbols in the abbrev table named NAME.
NAME is a symbol whose value is an abbrev table. System abbrevs
are omitted unless SYSTEM is non-nil.
(fn NAME &optional SYSTEM)
(defalias 'abbrev--table-symbols #[513 "J\300C\301\302\303\304\305\306\"\307\"\310\311%\"\210\211\242\207" [nil mapatoms make-byte-code 257 "\211J\205 \300\204 \302\303\"?\205 \301\301\242B\240\207" vconcat vector [abbrev-get :system] 4 "\n\n(fn SYM)"] 12 (#$ . 30546)])
#@1086 Define TABLENAME (a symbol) as an abbrev table name.
Define abbrevs in it according to DEFINITIONS, which is a list of elements
of the form (ABBREVNAME EXPANSION ...) that are passed to `define-abbrev'.
PROPS is a property list to apply to the table.
Properties with special meaning:
- `:parents' contains a list of abbrev tables from which this table inherits
abbreviations.
- `:case-fixed' non-nil means that abbreviations are looked up without
case-folding, and the expansion is not capitalized/upcased.
- `:regexp' is a regular expression that specifies how to extract the
name of the abbrev before point. The submatch 1 is treated
as the potential name of an abbrev. If :regexp is nil, the default
behavior uses `backward-word' and `forward-word' to extract the name
of the abbrev, which can therefore only be a single word.
- `:enable-function' can be set to a function of no argument which returns
non-nil if and only if the abbrevs in this table should be used for this
instance of `expand-abbrev'.
(fn TABLENAME DEFINITIONS &optional DOCSTRING &rest PROPS)
(defalias 'define-abbrev-table #[898 "\203 \211\203 9\203 B\262\301\262\302\303\301\205 CBBB!\210\304!\205, J\211\204B \305 \262L\210>\204B B:\203e A\204R \306\307@\"\210\310\211A\262\242\211A\262\242#\210\202B \211\205y \211@\311\312#\210A\266\202\202f \262\207" [abbrev-table-name-list nil eval defvar boundp make-abbrev-table error "Missing value for property %S" abbrev-table-put apply define-abbrev] 11 (#$ . 31030)])
(byte-code "\300\301\302\303#\300\207" [function-put define-abbrev-table doc-string-elt 3] 4)
#@230 Return a menu that shows all abbrevs in TABLE.
Selecting an entry runs `abbrev-insert'.
PROMPT is the prompt to use for the keymap.
SORTFUN is passed to `sort' to change the default ordering.
(fn TABLE &optional PROMPT SORTFUN)
(defalias 'abbrev-table-menu #[769 "\211C\211\242\204 \211\300\240\210\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\313!\314\242\303\315\316\306\307 !\317\"\320\321%\"\244\262\207" [string-lessp nil obarray-map make-byte-code 257 "\211J\205 \301!\300\302!\303\304\305\306\307\310\nDDFF\300\242B\240\262\207" vconcat vector [symbol-name intern menu-item lambda nil (interactive) abbrev-insert quote] 12 "\n\n(fn ABBREV)" make-sparse-keymap sort 514 "\300\242\3018\3018\"\207" [2] 6 "\n\n(fn X Y)"] 14 (#$ . 32675)])
(defvar edit-abbrevs-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [edit-abbrevs-mode-hook variable-documentation put "Hook run after entering Edit-Abbrevs mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp edit-abbrevs-mode-map definition-name edit-abbrevs-mode] 4)
(defvar edit-abbrevs-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [edit-abbrevs-mode-abbrev-table edit-abbrevs-mode-map variable-documentation put purecopy "Keymap for `edit-abbrevs-mode'." boundp edit-abbrevs-mode-syntax-table definition-name edit-abbrevs-mode (lambda (#1=#:def-tmp-var) (defvar edit-abbrevs-mode-syntax-table #1#)) make-syntax-table "Syntax table for `edit-abbrevs-mode'." (lambda (#1#) (defvar edit-abbrevs-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `edit-abbrevs-mode'." derived-mode-parent] 5)
#@273 Major mode for editing the list of abbrev definitions.
This mode is for editing abbrevs in a buffer prepared by `edit-abbrevs',
which see.
This mode runs the hook `edit-abbrevs-mode-hook', as the final or penultimate step
during initialization.
\{edit-abbrevs-mode-map}
(defalias 'edit-abbrevs-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
)\315\316!\207" [delay-mode-hooks major-mode mode-name edit-abbrevs-mode-map edit-abbrevs-mode-syntax-table edit-abbrevs-mode-abbrev-table make-local-variable t kill-all-local-variables edit-abbrevs-mode "Edit-Abbrevs" use-local-map set-syntax-table run-mode-hooks edit-abbrevs-mode-hook local-abbrev-table] 2 (#$ . 34667) nil])
(provide 'abbrev)
Mini Shell