--- a/lisp/prim/case-table.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/prim/case-table.el	Mon Aug 13 09:41:43 2007 +0200
@@ -1,8 +1,11 @@
 ;;; case-table.el --- code to extend the character set and support case tables.
+
+;; Copyright (C) 1988, 1993, 1997 Free Software Foundation, Inc.
+
+;; Author: Howard Gayle
+;; Maintainer: XEmacs Development Team
 ;; Keywords: i18n
 
-;; Copyright (C) 1988, 1993 Free Software Foundation, Inc.
-
 ;; This file is part of XEmacs.
 
 ;; XEmacs is free software; you can redistribute it and/or modify it
@@ -22,6 +25,8 @@
 
 ;;; Synched up with: Not synched with FSF.
 
+;;; Commentary:
+
 ;; Written by:
 ;; TN/ETX/TX/UMG Howard Gayle        UUCP : seismo!enea!erix!howard
 ;; Telefonaktiebolaget L M Ericsson  Phone: +46 8 719 55 65
@@ -29,6 +34,8 @@
 ;; S-126 25 Stockholm                FAX  : +46 8 719 64 82
 ;; Sweden
 
+;;; Code:
+
 ;;;###autoload
 (defun describe-buffer-case-table ()
   "Describe the case table of the current buffer."
@@ -66,7 +73,7 @@
       (progn (setq count (min (1- (point)) (- count)))
 	     (forward-char (- count))))
   (while (> count 0)
-    (let ((ch (following-char)))
+    (let ((ch (char-after)))
       (cond ((/= (upcase ch) ch)
 	     (insert (upcase ch))
 	     (delete-char 1))
@@ -115,3 +122,5 @@
   (modify-syntax-entry c syntax text-mode-syntax-table))
 
 (provide 'case-table)
+
+;;; case-table.el ends here