(backup-extract-version-start): New variable.

[gnu-emacs] / lisp / case-table.el

diff --git a/lisp/case-table.el b/lisp/case-table.el
index 3efa3d3f27e796bdc895e02e023417ad6a15e1a3..71b9b76823c1a74ac00a2cad0af09fe0560ef336 100644 (file)
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -19,8 +19,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -40,7 +41,7 @@
   (let ((description (make-char-table 'case-table)))
     (map-char-table
      (function (lambda (key value)
-                (set-case-table-range
+                (set-char-table-range
                  description key
                  (cond ((null key)
                         "case-invariant")
@@ -67,7 +68,7 @@
     (set-char-table-extra-slot copy 1 nil)
     (set-char-table-extra-slot copy 2 nil)
     copy))
-    
+
 ;;;###autoload
 (defun set-case-syntax-delims (l r table)
   "Make characters L and R a matching pair of non-case-converting delimiters.
@@ -104,8 +105,8 @@ word constituents."
 
 ;;;###autoload
 (defun set-case-syntax (c syntax table)
-  "Make characters C case-invariant with syntax SYNTAX.
-This sets the entries for character C in TABLE, which is a string
+  "Make character C case-invariant with syntax SYNTAX.
+This sets the entry for character C in TABLE, which is a string
 that will be used as the downcase part of a case table.
 It also modifies `standard-syntax-table'.
 SYNTAX should be \" \", \"w\", \".\" or \"_\"."