diff options
| -rw-r--r-- | lisp/abbrev.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index b63814e922a..cb8f9b69aca 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el | |||
| @@ -281,7 +281,7 @@ Don't use this function in a Lisp program; use `define-abbrev' instead." | |||
| 281 | name (abbrev-expansion name table)))) | 281 | name (abbrev-expansion name table)))) |
| 282 | (define-abbrev table (downcase name) exp)))) | 282 | (define-abbrev table (downcase name) exp)))) |
| 283 | 283 | ||
| 284 | (defun inverse-add-mode-abbrev (arg) | 284 | (defun inverse-add-mode-abbrev (n) |
| 285 | "Define last word before point as a mode-specific abbrev. | 285 | "Define last word before point as a mode-specific abbrev. |
| 286 | With prefix argument N, defines the Nth word before point. | 286 | With prefix argument N, defines the Nth word before point. |
| 287 | This command uses the minibuffer to read the expansion. | 287 | This command uses the minibuffer to read the expansion. |
| @@ -292,15 +292,15 @@ Expands the abbreviation after defining it." | |||
| 292 | global-abbrev-table | 292 | global-abbrev-table |
| 293 | (or local-abbrev-table | 293 | (or local-abbrev-table |
| 294 | (error "No per-mode abbrev table"))) | 294 | (error "No per-mode abbrev table"))) |
| 295 | "Mode" arg)) | 295 | "Mode" n)) |
| 296 | 296 | ||
| 297 | (defun inverse-add-global-abbrev (arg) | 297 | (defun inverse-add-global-abbrev (n) |
| 298 | "Define last word before point as a global (mode-independent) abbrev. | 298 | "Define last word before point as a global (mode-independent) abbrev. |
| 299 | With prefix argument N, defines the Nth word before point. | 299 | With prefix argument N, defines the Nth word before point. |
| 300 | This command uses the minibuffer to read the expansion. | 300 | This command uses the minibuffer to read the expansion. |
| 301 | Expands the abbreviation after defining it." | 301 | Expands the abbreviation after defining it." |
| 302 | (interactive "p") | 302 | (interactive "p") |
| 303 | (inverse-add-abbrev global-abbrev-table "Global" arg)) | 303 | (inverse-add-abbrev global-abbrev-table "Global" n)) |
| 304 | 304 | ||
| 305 | (defun inverse-add-abbrev (table type arg) | 305 | (defun inverse-add-abbrev (table type arg) |
| 306 | (let (name exp start end) | 306 | (let (name exp start end) |
| @@ -338,9 +338,8 @@ ARG is non-nil. Interactively, ARG is the prefix argument." | |||
| 338 | 338 | ||
| 339 | (defun expand-region-abbrevs (start end &optional noquery) | 339 | (defun expand-region-abbrevs (start end &optional noquery) |
| 340 | "For abbrev occurrence in the region, offer to expand it. | 340 | "For abbrev occurrence in the region, offer to expand it. |
| 341 | The user is asked to type y or n for each occurrence. | 341 | The user is asked to type `y' or `n' for each occurrence. |
| 342 | A prefix argument means don't query; expand all abbrevs. | 342 | A prefix argument means don't query; expand all abbrevs." |
| 343 | If called from a Lisp program, arguments are START END &optional NOQUERY." | ||
| 344 | (interactive "r\nP") | 343 | (interactive "r\nP") |
| 345 | (save-excursion | 344 | (save-excursion |
| 346 | (goto-char start) | 345 | (goto-char start) |