Commit 1d1e35a0 authored by Richard M. Stallman's avatar Richard M. Stallman

Customized.

(only-global-abbrevs): Doc fix.
parent 811fd07a
...@@ -27,9 +27,12 @@ ...@@ -27,9 +27,12 @@
;;; Code: ;;; Code:
(defvar only-global-abbrevs nil "\ (defcustom only-global-abbrevs nil
*t means user plans to use global abbrevs only. "*t means user plans to use global abbrevs only.
Makes the commands to define mode-specific abbrevs define global ones instead.") This makes the commands that normally define mode-specific abbrevs
define global abbrevs instead."
:type 'boolean
:group 'abbrev-mode)
(defun abbrev-mode (arg) (defun abbrev-mode (arg)
"Toggle abbrev mode. "Toggle abbrev mode.
...@@ -41,6 +44,17 @@ and be replaced by its expansion." ...@@ -41,6 +44,17 @@ and be replaced by its expansion."
(if (null arg) (not abbrev-mode) (if (null arg) (not abbrev-mode)
(> (prefix-numeric-value arg) 0))) (> (prefix-numeric-value arg) 0)))
(force-mode-line-update)) (force-mode-line-update))
(defcustom abbrev-mode nil
"Toggle abbrev mode.
In abbrev mode, inserting an abbreviation causes it to expand
and be replaced by its expansion.
You must modify via \\[customize] for this variable to have an effect."
:set (lambda (symbol value)
(abbrev-mode (if value 1 0)))
:type 'boolean
:group 'abbrev-mode)
(defvar edit-abbrevs-map nil (defvar edit-abbrevs-map nil
"Keymap used in edit-abbrevs.") "Keymap used in edit-abbrevs.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment