Mercurial > emacs
comparison lisp/abbrev.el @ 19307:5745bc43cfe9
Customized.
(only-global-abbrevs): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Aug 1997 23:54:58 +0000 |
| parents | 714ddb9d5974 |
| children | a77d473867b8 |
comparison
equal
deleted
inserted
replaced
| 19306:974544be1a17 | 19307:5745bc43cfe9 |
|---|---|
| 25 | 25 |
| 26 ;; This facility is documented in the Emacs Manual. | 26 ;; This facility is documented in the Emacs Manual. |
| 27 | 27 |
| 28 ;;; Code: | 28 ;;; Code: |
| 29 | 29 |
| 30 (defvar only-global-abbrevs nil "\ | 30 (defcustom only-global-abbrevs nil |
| 31 *t means user plans to use global abbrevs only. | 31 "*t means user plans to use global abbrevs only. |
| 32 Makes the commands to define mode-specific abbrevs define global ones instead.") | 32 This makes the commands that normally define mode-specific abbrevs |
| 33 define global abbrevs instead." | |
| 34 :type 'boolean | |
| 35 :group 'abbrev-mode) | |
| 33 | 36 |
| 34 (defun abbrev-mode (arg) | 37 (defun abbrev-mode (arg) |
| 35 "Toggle abbrev mode. | 38 "Toggle abbrev mode. |
| 36 With argument ARG, turn abbrev mode on iff ARG is positive. | 39 With argument ARG, turn abbrev mode on iff ARG is positive. |
| 37 In abbrev mode, inserting an abbreviation causes it to expand | 40 In abbrev mode, inserting an abbreviation causes it to expand |
| 39 (interactive "P") | 42 (interactive "P") |
| 40 (setq abbrev-mode | 43 (setq abbrev-mode |
| 41 (if (null arg) (not abbrev-mode) | 44 (if (null arg) (not abbrev-mode) |
| 42 (> (prefix-numeric-value arg) 0))) | 45 (> (prefix-numeric-value arg) 0))) |
| 43 (force-mode-line-update)) | 46 (force-mode-line-update)) |
| 47 | |
| 48 (defcustom abbrev-mode nil | |
| 49 "Toggle abbrev mode. | |
| 50 In abbrev mode, inserting an abbreviation causes it to expand | |
| 51 and be replaced by its expansion. | |
| 52 You must modify via \\[customize] for this variable to have an effect." | |
| 53 :set (lambda (symbol value) | |
| 54 (abbrev-mode (if value 1 0))) | |
| 55 :type 'boolean | |
| 56 :group 'abbrev-mode) | |
| 57 | |
| 44 | 58 |
| 45 (defvar edit-abbrevs-map nil | 59 (defvar edit-abbrevs-map nil |
| 46 "Keymap used in edit-abbrevs.") | 60 "Keymap used in edit-abbrevs.") |
| 47 (if edit-abbrevs-map | 61 (if edit-abbrevs-map |
| 48 nil | 62 nil |