29 |
;;; Code: |
;;; Code: |
30 |
|
|
31 |
(defcustom only-global-abbrevs nil |
(defcustom only-global-abbrevs nil |
32 |
"*t means user plans to use global abbrevs only. |
"Non-nil means user plans to use global abbrevs only. |
33 |
This makes the commands that normally define mode-specific abbrevs |
This makes the commands that normally define mode-specific abbrevs |
34 |
define global abbrevs instead." |
define global abbrevs instead." |
35 |
:type 'boolean |
:type 'boolean |
59 |
:group 'abbrev-mode) |
:group 'abbrev-mode) |
60 |
|
|
61 |
|
|
62 |
(defvar edit-abbrevs-map nil |
(defvar edit-abbrevs-map |
63 |
|
(let ((map (make-sparse-keymap))) |
64 |
|
(define-key map "\C-x\C-s" 'edit-abbrevs-redefine) |
65 |
|
(define-key map "\C-c\C-c" 'edit-abbrevs-redefine) |
66 |
|
map) |
67 |
"Keymap used in `edit-abbrevs'.") |
"Keymap used in `edit-abbrevs'.") |
|
(if edit-abbrevs-map |
|
|
nil |
|
|
(setq edit-abbrevs-map (make-sparse-keymap)) |
|
|
(define-key edit-abbrevs-map "\C-x\C-s" 'edit-abbrevs-redefine) |
|
|
(define-key edit-abbrevs-map "\C-c\C-c" 'edit-abbrevs-redefine)) |
|
68 |
|
|
69 |
(defun kill-all-abbrevs () |
(defun kill-all-abbrevs () |
70 |
"Undefine all defined abbrevs." |
"Undefine all defined abbrevs." |
194 |
(setq abbrevs-changed nil)) |
(setq abbrevs-changed nil)) |
195 |
|
|
196 |
(defun quietly-read-abbrev-file (&optional file) |
(defun quietly-read-abbrev-file (&optional file) |
197 |
"Read abbrev definitions from file written with write-abbrev-file. |
"Read abbrev definitions from file written with `write-abbrev-file'. |
198 |
Optional argument FILE is the name of the file to read; |
Optional argument FILE is the name of the file to read; |
199 |
it defaults to the value of `abbrev-file-name'. |
it defaults to the value of `abbrev-file-name'. |
200 |
Does not display any message." |
Does not display any message." |