Mercurial > emacs
diff lisp/abbrev.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 22 Jul 2005 08:27:27 +0000 |
parents | f9a65d7ebd29 83ccf4fe94c3 |
children | 2d92f5c9d6ae |
line wrap: on
line diff
--- a/lisp/abbrev.el Tue Jul 19 02:58:20 2005 +0000 +++ b/lisp/abbrev.el Fri Jul 22 08:27:27 2005 +0000 @@ -281,7 +281,7 @@ name (abbrev-expansion name table)))) (define-abbrev table (downcase name) exp)))) -(defun inverse-add-mode-abbrev (arg) +(defun inverse-add-mode-abbrev (n) "Define last word before point as a mode-specific abbrev. With prefix argument N, defines the Nth word before point. This command uses the minibuffer to read the expansion. @@ -292,15 +292,15 @@ global-abbrev-table (or local-abbrev-table (error "No per-mode abbrev table"))) - "Mode" arg)) + "Mode" n)) -(defun inverse-add-global-abbrev (arg) +(defun inverse-add-global-abbrev (n) "Define last word before point as a global (mode-independent) abbrev. With prefix argument N, defines the Nth word before point. This command uses the minibuffer to read the expansion. Expands the abbreviation after defining it." (interactive "p") - (inverse-add-abbrev global-abbrev-table "Global" arg)) + (inverse-add-abbrev global-abbrev-table "Global" n)) (defun inverse-add-abbrev (table type arg) (let (name exp start end) @@ -338,9 +338,8 @@ (defun expand-region-abbrevs (start end &optional noquery) "For abbrev occurrence in the region, offer to expand it. -The user is asked to type y or n for each occurrence. -A prefix argument means don't query; expand all abbrevs. -If called from a Lisp program, arguments are START END &optional NOQUERY." +The user is asked to type `y' or `n' for each occurrence. +A prefix argument means don't query; expand all abbrevs." (interactive "r\nP") (save-excursion (goto-char start)