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))