37 |
:group 'convenience) |
:group 'convenience) |
38 |
|
|
39 |
(defun abbrev-mode (&optional arg) |
(defun abbrev-mode (&optional arg) |
40 |
"Toggle abbrev mode. |
"Toggle Abbrev mode in the current buffer. |
41 |
With argument ARG, turn abbrev mode on iff ARG is positive. |
With argument ARG, turn abbrev mode on iff ARG is positive. |
42 |
In abbrev mode, inserting an abbreviation causes it to expand |
In Abbrev mode, inserting an abbreviation causes it to expand |
43 |
and be replaced by its expansion." |
and be replaced by its expansion." |
44 |
(interactive "P") |
(interactive "P") |
45 |
(setq abbrev-mode |
(setq abbrev-mode |
48 |
(force-mode-line-update)) |
(force-mode-line-update)) |
49 |
|
|
50 |
(defcustom abbrev-mode nil |
(defcustom abbrev-mode nil |
51 |
"Toggle abbrev mode. |
"Enable or disable Abbrev mode. |
52 |
Non-nil means automatically expand abbrevs as they are inserted. |
Non-nil means automatically expand abbrevs as they are inserted. |
53 |
|
|
54 |
|
Setting this variable with `setq' changes it for the current buffer. |
55 |
Changing it with \\[customize] sets the default value. |
Changing it with \\[customize] sets the default value. |
56 |
Use the command `abbrev-mode' to enable or disable Abbrev mode in the current |
Interactively, use the command `abbrev-mode' |
57 |
buffer." |
to enable or disable Abbrev mode in the current buffer." |
58 |
:type 'boolean |
:type 'boolean |
59 |
:group 'abbrev-mode) |
:group 'abbrev-mode) |
60 |
|
|
61 |
|
|
62 |
(defvar edit-abbrevs-map nil |
(defvar edit-abbrevs-map nil |
63 |
"Keymap used in edit-abbrevs.") |
"Keymap used in `edit-abbrevs'.") |
64 |
(if edit-abbrevs-map |
(if edit-abbrevs-map |
65 |
nil |
nil |
66 |
(setq edit-abbrevs-map (make-sparse-keymap)) |
(setq edit-abbrevs-map (make-sparse-keymap)) |