/[emacs]/emacs/lisp/abbrev.el
ViewVC logotype

Diff of /emacs/lisp/abbrev.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by uid68472, Tue Feb 24 03:25:33 2004 UTC revision 1.37 by rms, Sun Jun 13 21:55:49 2004 UTC
# Line 37  define global abbrevs instead." Line 37  define global abbrevs instead."
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
# Line 48  and be replaced by its expansion." Line 48  and be replaced by its expansion."
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))

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26