Mercurial > hg > xemacs-beta
diff lisp/abbrev.el @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | 0e522484dd2a |
children | 2f8bb876ab1d |
line wrap: on
line diff
--- a/lisp/abbrev.el Mon Aug 13 10:27:41 2007 +0200 +++ b/lisp/abbrev.el Mon Aug 13 10:28:48 2007 +0200 @@ -57,7 +57,7 @@ This causes `save-some-buffers' to offer to save the abbrevs.") (defun make-abbrev-table () - "Create a new, empty abbrev table object." + "Return a new, empty abbrev table object." (make-vector 59 0)) ; 59 is prime (defun clear-abbrev-table (table) @@ -125,7 +125,7 @@ (setq abbrev-table-name-list (delq fixup abbrev-table-name-list)) (define-abbrev-table (car fixup) (cdr fixup)))) (setq l (cdr l)))) - ;; These are no longer initialised by C code + ;; These are no longer initialized by C code (if (not global-abbrev-table) (progn (setq global-abbrev-table (make-abbrev-table)) @@ -186,7 +186,7 @@ "Undo the expansion of the last abbrev that expanded. This differs from ordinary undo in that other editing done since then is not undone." - (interactive) + (interactive) (if (or (< last-abbrev-location (point-min)) (> last-abbrev-location (point-max)) (not (stringp last-abbrev-text))) @@ -216,7 +216,7 @@ define the abbrev table NAME exactly as it is currently defined." (let ((table (symbol-value name)) (stream (current-buffer))) - (message "Abbrev-table %s..." name) + (message "Abbrev-table %s..." name) (if human-readable (progn (prin1 (list name) stream) @@ -431,7 +431,7 @@ (interactive "P") (add-abbrev (if only-global-abbrevs - global-abbrev-table + global-abbrev-table (or local-abbrev-table (error "No per-mode abbrev table"))) "Mode" arg)) @@ -468,7 +468,7 @@ (y-or-n-p (format "%s expands to \"%s\"; redefine? " name (abbrev-expansion name table)))) (define-abbrev table (downcase name) exp)))) - + (defun inverse-add-mode-abbrev (arg) "Define last word before point as a mode-specific abbrev. With prefix argument N, defines the Nth word before point. @@ -477,7 +477,7 @@ (interactive "p") (inverse-add-abbrev (if only-global-abbrevs - global-abbrev-table + global-abbrev-table (or local-abbrev-table (error "No per-mode abbrev table"))) "Mode" arg))