80 |
leaving it empty. It always returns @code{nil}. |
leaving it empty. It always returns @code{nil}. |
81 |
@end defun |
@end defun |
82 |
|
|
83 |
|
@defun copy-abbrev-table table |
84 |
|
This function returns a copy of abbrev table @var{table}---a new |
85 |
|
abbrev table that contains the same abbrev definitions. |
86 |
|
@end defun |
87 |
|
|
88 |
@defun define-abbrev-table tabname definitions |
@defun define-abbrev-table tabname definitions |
89 |
This function defines @var{tabname} (a symbol) as an abbrev table |
This function defines @var{tabname} (a symbol) as an abbrev table |
90 |
name, i.e., as a variable whose value is an abbrev table. It defines |
name, i.e., as a variable whose value is an abbrev table. It defines |
154 |
replaced with @var{expansion}; point is located at the end of |
replaced with @var{expansion}; point is located at the end of |
155 |
@var{expansion} when @var{hook} is called. |
@var{expansion} when @var{hook} is called. |
156 |
|
|
157 |
If @var{hook} is a non-nil symbol whose @code{no-self-insert} property |
@cindex @code{no-self-insert} property |
158 |
is non-@code{nil}, @var{hook} can explicitly control whether to insert |
If @var{hook} is a non-@code{nil} symbol whose @code{no-self-insert} |
159 |
the self-inserting input character that triggered the expansion. If |
property is non-@code{nil}, @var{hook} can explicitly control whether |
160 |
@var{hook} returns non-@code{nil} in this case, that inhibits insertion |
to insert the self-inserting input character that triggered the |
161 |
of the character. By contrast, if @var{hook} returns @code{nil}, |
expansion. If @var{hook} returns non-@code{nil} in this case, that |
162 |
@code{expand-abbrev} also returns @code{nil}, as if expansion had not |
inhibits insertion of the character. By contrast, if @var{hook} |
163 |
really occurred. |
returns @code{nil}, @code{expand-abbrev} also returns @code{nil}, as |
164 |
|
if expansion had not really occurred. |
165 |
|
|
166 |
If @var{system-flag} is non-@code{nil}, that marks the abbrev as a |
If @var{system-flag} is non-@code{nil}, that marks the abbrev as a |
167 |
``system'' abbrev with the @code{system-type} property. |
``system'' abbrev with the @code{system-type} property. |
346 |
;; @r{acceptable; the return value has no effect on expansion.} |
;; @r{acceptable; the return value has no effect on expansion.} |
347 |
|
|
348 |
(defun query-if-not-space () |
(defun query-if-not-space () |
349 |
(if (/= ?\ (preceding-char)) |
(if (/= ?\s (preceding-char)) |
350 |
(if (not (y-or-n-p "Do you want to expand this abbrev? ")) |
(if (not (y-or-n-p "Do you want to expand this abbrev? ")) |
351 |
(error "Not expanding this abbrev")))) |
(error "Not expanding this abbrev")))) |
352 |
@end smallexample |
@end smallexample |
383 |
This is the local abbrev table used in Lisp mode and Emacs Lisp mode. |
This is the local abbrev table used in Lisp mode and Emacs Lisp mode. |
384 |
@end defvar |
@end defvar |
385 |
|
|
386 |
|
@ignore |
387 |
|
arch-tag: 5ffdbe08-2cd4-48ec-a5a8-080f95756eec |
388 |
|
@end ignore |