| Current Path : /usr/share/emacs/24.3/lisp/ |
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/abbrev.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/abbrev.el
;;; in Emacs version 24.3
;;; 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\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\320\321&\210\310\322\312\313\323DD\324\320\325\306\301\306\326& \207" [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 "\n\n(fn)"] "Default name of file from which to read abbrevs." :initialize custom-initialize-delay :type file only-global-abbrevs #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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)
#@320 Toggle Abbrev mode in the current buffer.
With a prefix argument ARG, enable Abbrev mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
Abbrev mode if ARG is omitted or nil.
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!\203? \301 \2032 \211\301 \232\203? \313\314\203< \315\202= \316\"\210\210\317 \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 message "Abbrev mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 1306) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\302\306\307#\207" [abbrev-mode-map add-minor-mode abbrev-mode nil boundp put safe-local-variable booleanp] 6)
#@32 Keymap used in `edit-abbrevs'.
(defvar edit-abbrevs-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) (#$ . 2298))
#@37 Undefine all defined abbrevs.
(fn)
(defalias 'kill-all-abbrevs #[0 "\211\205 \211@\301J!\210A\266\202\202 \207" [abbrev-table-name-list clear-abbrev-table] 4 (#$ . 2575) 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 mapatoms make-byte-code 257 "\301\300\302!JK$\207" vconcat vector [define-abbrev symbol-name] 6 "\n\n(fn SYMBOL)"] 9 (#$ . 2763)])
#@101 Insert after point a description of all defined abbrevs.
Mark is set after the inserted text.
(fn)
(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 (#$ . 3121) 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 (#$ . 3416) "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 (#$ . 3738)])
(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 "\n\n(fn &optional LOCAL)"])
#@82 Major mode for editing the list of abbrev definitions.
\{edit-abbrevs-map}
(fn)
(defalias 'edit-abbrevs-mode #[0 "\303 \210\304\305\306\n!\210\307\310!\207" [major-mode mode-name edit-abbrevs-map kill-all-local-variables edit-abbrevs-mode "Edit-Abbrevs" use-local-map run-mode-hooks edit-abbrevs-mode-hook] 2 (#$ . 4455) nil])
#@631 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 of current buffer.
You can edit them and type \<edit-abbrevs-map>\[edit-abbrevs-redefine] to redefine abbrevs
according to your 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).
(fn)
(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 (#$ . 4792) nil])
#@62 Redefine abbrevs according to current buffer contents.
(fn)
(defalias 'edit-abbrevs-redefine #[0 "\214~\210\300\301!\210\302\303!)\207" [define-abbrevs t set-buffer-modified-p nil] 2 (#$ . 5686) 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 (#$ . 5895) "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 (#$ . 6627) (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 (#$ . 7167)])
#@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\311\304\312\313\314!\315\"\316\317%DC\216\320\321\n!\322\"\211\203@ \211@\323\324\"\210A\266\202\202. \210\325ed\305#\203U \326V\203S \327\202T \330eb\210\331\332 \"c\210\333\324\211\324?\205j \304%*\262)\207" [abbrev-file-name coding-system-for-write abbrev-table-name-list emacs-major-version 0 utf-8 generate-new-buffer " *temp*" funcall make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" sort copy-sequence #[514 "\300!\300!\231\207" [symbol-name] 5 "\n\n(fn S1 S2)"] insert-abbrev-table-description nil unencodable-char-position 24 utf-8-emacs emacs-mule format ";;-*-coding: %s;-*-\n" write-region] 10 (#$ . 7494) (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 (#$ . 8898) (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)])
#@140 Save all user-level abbrev definitions in current buffer.
The saved abbrevs are written to the file specified by
`abbrev-file-name'.
(fn)
(defalias 'abbrev-edit-save-buffer #[0 "\301!\207" [abbrev-file-name abbrev-edit-save-to-file] 2 (#$ . 9250) 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 (#$ . 9512) "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 (#$ . 10079) "p"])
(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 "\n\n(fn TABLE TYPE ARG)"])
#@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 (#$ . 11057) "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 (#$ . 11518) "p"])
(defalias 'inverse-add-abbrev #[771 "\300\211\211\211\212[Tv\210`\262\301v\210`\262\302\"\262)\303\304\305#\300\211\211\306%\262\307\"\203A \310\304\311\307\f\"#!\205P \312\227#\210\212\211b\210\313 )\207" [nil -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 "\n\n(fn TABLE TYPE ARG)"])
#@481 Mark current point as the beginning of an abbrev.
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
temporary hyphen after the prefix (until the intended abbrev
expansion occurs).
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 (#$ . 12331) "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 "Expand `%s'? " expand-abbrev] 10 (#$ . 12998) "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" [intern-soft ""] 5 (#$ . 13539)])
#@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" [intern "" nil put] 8 (#$ . 13709)])
(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 ABREV 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) (#$ . 14201))
#@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\304\302#\210:\203\" \303\211A\262@\211A\262@#\210\202\n \211\207" [make-vector 59 0 abbrev-table-put :abbrev-table-modiff] 7 (#$ . 14353)])
#@59 Return non-nil if OBJECT is an abbrev table.
(fn OBJECT)
(defalias 'abbrev-table-p #[257 "\300!\205 \301\302\"\247\207" [vectorp abbrev-table-get :abbrev-table-modiff] 4 (#$ . 14655)])
#@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\303\304\305\306\307\310\311\"\312\"\313\314%D\215?\207" [abbrev-table-p error "Non abbrev table object" some funcall make-byte-code 0 "\302\303\304\305\306\307\301!\310\"\311\312%\300\"\207" vconcat vector [mapatoms make-byte-code 257 "\301\302!G!\206 \300\205 \303\304\"?\205 \305\306\307\"\207" vconcat vector [zerop symbol-name abbrev-get :system throw some t] 4 "\n\n(fn ABBREV)"] 7 "\n\n(fn)"] 11 (#$ . 14851)])
#@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) (#$ . 15501))
#@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 (#$ . 15765))
#@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) (#$ . 16036))
#@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 (#$ . 16255))
(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 "\n\n(fn)"] "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 (#$ . 16681))
#@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 (#$ . 16900))
#@70 The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'.
(defvar last-abbrev nil (#$ . 17094))
#@98 The exact text of the last abbrev expanded.
It is nil if the abbrev has already been unexpanded.
(defvar last-abbrev-text nil (#$ . 17207))
#@56 The location of the start of the last abbrev expanded.
(defvar last-abbrev-location 0 (#$ . 17353))
(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 "\n\n(fn)"] "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-functions "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\307C\"\210\310\303\"\211\311L\210\312\313!\"\266\314\315\316\315\"T#\266\311\207" [abbrevs-changed t intern-soft "" 0 signal cl-assertion-failed sym intern nil setplist symbol-plist abbrev-table-put :abbrev-table-modiff abbrev-table-get] 8 (#$ . 17931)])
#@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( \302@\211A@)\205$ \303\211A@)DBB\262\304\302\"\2046 \305\302\306#\262\304\303\"\307\"\310>\204W \311!\203W \211J\203W \312\303\"\203\236 \204w \311!\203u \313!\203u \211J\232\203u \211K\232\204w \314\211L\210\211M\210\315\316=\203\217 \305\303\314#\202\220 \"\210\317\320\321\n\320\"T#\210\207" [x abbrevs-changed :count :system plist-get plist-put 0 intern (nil force) boundp abbrev-get fboundp t setplist force abbrev-table-put :abbrev-table-modiff abbrev-table-get] 14 (#$ . 18402)])
#@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\"\310\311%DC\216\312\204 \313 \202\" \300 !\210\314\315\"\205b \316\303\314\315#\203N \303\224H\317\"\204F \211B\262\210\211T\262\202- \320\321\322\323\237\"\203^ \324\202_ \325#\266\202)\207" [syntax-table funcall make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 "\n\n(fn)" 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"] 12 (#$ . 20681)])
#@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 (#$ . 21431) "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 (#$ . 21799) "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 (#$ . 22216)])
#@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\203G \211J\204G \211A\262@\302\303\"?\304\302\305\"\"\262\306\"\206B \211\205B \306\227\"\211\205@ \307\303\"?\205@ \211\262\266\203\202 \211J\205M \211\207" [abbrev--active-tables nil abbrev-table-get :case-fixed append :parents intern-soft abbrev-get] 10 (#$ . 22747)])
#@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 (#$ . 23497)])
#@80 Try and find an abbrev before point. Return it if found, nil otherwise.
(fn)
(defalias 'abbrev--before-point #[0 "p=\204 \302\303 `\302\211\211\211 \203K \262\302dW\203* f\304=\203* \211T|\210\305\306!\210`\262V\205\330 {\262b\210\307\"F\202\330 \203\327 \211@\204\327 \211A\262@\310\311\"\312\310\313\" \"\262\211\203q \211 \205\315 \310\314\"\211\204\216 `\315v\210`\262\316v\210`^\211\262\262\202\237 \317\320 \"\205\237 \316\224\262\316\225\211\262\262\205\315 {\211\262\205\315 \307\"\211\205\313 \321\311\"\262\203\304 \205\313 \211F\262\262b\266\202K \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-get] 13 (#$ . 23776)])
#@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 (#$ . 24661)])
#@211 Wrapper hook around `expand-abbrev'.
The functions on this special hook are called with one argument:
a function that performs the abbrev expansion. It should return
the abbrev symbol if expansion took place.
(defvar abbrev-expand-functions nil (#$ . 25795))
#@240 Expand the abbrev before point, if there is an abbrev there.
Effective when explicitly called even when `abbrev-mode' is nil.
Returns the abbrev symbol, if expansion took place. (The actual
return value is that of `abbrev-insert'.)
(fn)
(defalias 'expand-abbrev #[0 "\301\302!\210\303C\211\304\305\306\307\310!\311\"\312\313%\240\210\211@\314\300!\205\" \315\300!\303#\207" [abbrev-expand-functions run-hooks pre-abbrev-expand-hook nil make-byte-code 771 ":\2030 @\301=\203 \300@\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@#\207" vconcat vector [] 7 "\n\n(fn FUNS GLOBAL &rest ARGS)" #[0 "\304 \211@A\211@A\211@A\211@A\n\211\205Q \305`\306\"\305\306\"\2042 \307\310 !\2042 \311 \210\312 $V\203O `U\203O 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 selected-window undo-boundary abbrev-insert] 20 "\n\n(fn)"]] 12 "\n\n(fn FUNS GLOBAL ARGS)" local-variable-p default-value] 8 (#$ . 26062) nil])
#@145 Undo the expansion of the last abbrev that expanded.
This differs from ordinary undo in that other editing done since then
is not undone.
(fn)
(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 (#$ . 27232) nil])
#@146 Write the abbrev in a `read'able form.
Only writes the non-system abbrevs.
Presumes that `standard-output' points to `current-buffer'.
(fn SYM)
(defalias 'abbrev--write #[257 "\211J?\206\n \300\301\"?\2053 \302c\210\303\304!!\210\305c\210\303J!\210\305c\210\303K!\210\305c\210\303\300\306\"!\210\307c\207" [abbrev-get :system " (" prin1 symbol-name " " :count ")\n"] 5 (#$ . 27643)])
(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 "\n\n(fn SYM)"])
#@434 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. Otherwise the description is an expression,
a call to `define-abbrev-table', which would
define the abbrev table NAME exactly as it is currently defined.
Abbrevs marked as "system abbrevs" are omitted.
(fn NAME &optional READABLE)
(defalias 'insert-abbrev-table-description #[513 "J\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\211\313@\314\"\240\210p\2039 \315c\210\316!\210\317c\210\320\321@\"\210\322c\210\202W \323c\210\316!\210\211@\204K \324c\210\202W \325c\210\320\326@\"\210\327c\210)\301\207" [standard-output nil mapatoms make-byte-code 257 "\211J\205 \300\300@B\240\207" vconcat vector [] 4 "\n\n(fn SYM)" sort string-lessp "(" prin1 ")\n\n" mapc abbrev--describe "\n\n" "(define-abbrev-table '" " '())\n\n" "\n '(\n" abbrev--write " ))\n\n"] 11 (#$ . 28375)])
(put 'define-abbrev-table 'doc-string-elt 3)
#@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 "\301\302\303;\205 CBBB!\210\304!\205 J\211\204. \305 \262L\210>\204. B:\203F \306\211A\262@\211A\262@#\210\202. \211\205Z \211@\307\310#\210A\266\202\202G \262\207" [abbrev-table-name-list eval defvar nil boundp make-abbrev-table abbrev-table-put apply define-abbrev] 11 (#$ . 29424)])
#@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@\204 \211\300\240\210\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\313!\314@\303\315\316\306\307 !\317\"\320\321%\"\244\262\207" [string-lessp nil mapatoms make-byte-code 257 "\211J\205 \301!\300\302!\303\304\305\306\307\310\nDDFF\300@B\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@\3018\3018\"\207" [2] 6 "\n\n(fn X Y)"] 14 (#$ . 30866)])
(provide 'abbrev)