Some fixes to follow coding conventions.

9 files changed, 38 insertions, 32 deletions

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index d5670acb2da..a918e720b7f 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -5493,4 +5493,4 @@ The event, EV, is the mouse event."
 ;; Don't hesitate to ask me any questions.
 
 
-;; artist.el ends here
+;;; artist.el ends here
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 0498820b4fb..19d2b99bcf7 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1,11 +1,11 @@
-;;; flyspell.el --- On-the-fly spell checker
+;;; flyspell.el --- on-the-fly spell checker
 
 ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Manuel Serrano <Manuel.Serrano@unice.fr>
 ;; Keywords: convenience
 
-;;; This file is part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -2096,4 +2096,5 @@ This function is meant to be added to 'flyspell-incorrect-hook'."
   (set (abbrev-symbol old table) new))
   
 (provide 'flyspell)
+
 ;;; flyspell.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 9b9a5a632bd..eebd32f2ec0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1,9 +1,9 @@
-;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2
+;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
 
 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
 
-;; Author:           Ken Stevens <k.stevens@ieee.org>
-;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
+;; Author:           Ken Stevens <k.stevens@ieee.org>
+;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
 ;; Stevens Mod Date: Fri Aug  4 09:41:50 PDT 2000
 ;; Stevens Revision: 3.4
 ;; Status          : Release with 3.1.12+ and 3.2.0+ ispell.
@@ -1357,7 +1357,7 @@ quit          spell session exited."
         (setq ispell-filter (cdr ispell-filter)) ; remove extra \n
         (if (and ispell-filter (listp ispell-filter))
             (if (> (length ispell-filter) 1)
-                (error "Ispell and its process have different character maps.")
+                (error "Ispell and its process have different character maps")
               (setq poss (ispell-parse-output (car ispell-filter)))))
         (cond ((eq poss t)
                (or quietly
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c5f50fe2840..3b04d3787be 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -718,7 +718,7 @@ to the same line in the pages buffer."
       (progn
         (setq pages-buffer nil
               pages-pos-list nil)
-        (error "Buffer in which pages were found is deleted.")))
+        (error "Buffer in which pages were found is deleted")))
   (beginning-of-line)
   (let* ((pages-number (1- (count-lines (point-min) (point))))
          (pos (nth pages-number pages-pos-list))
@@ -806,5 +806,4 @@ to the same line in the pages buffer."
 ;;; Place `provide' at end of file.
 (provide 'page-ext)
 
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
-
+;;; page-ext.el ends here
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 3a80efd981f..9cb10914984 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -1,4 +1,4 @@
-;;; refer.el --- look up references in bibliography files.
+;;; refer.el --- look up references in bibliography files
 
 ;; Copyright (C) 1992, 1996 Free Software Foundation, Inc.
 
@@ -175,7 +175,7 @@ found on the last refer-find-entry or refer-find-next-entry."
          (if (looking-at
               "[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,")
              (buffer-substring (match-beginning 1) (match-end 1))
-           (error "Cannot find key for entry in file %s."
+           (error "Cannot find key for entry in file %s"
                   (car refer-saved-state))))))
     (if (not (= (point) old-point))
       (set-mark old-point))))
@@ -395,4 +395,3 @@ found on the last refer-find-entry or refer-find-next-entry."
     files))
 
 ;;; refer.el ends here
-
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 91caa8a9859..01f49921b4c 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1,4 +1,4 @@
-;;; texinfmt.el --- format Texinfo files into Info files.
+;;; texinfmt.el --- format Texinfo files into Info files
 
 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 
 ;;               1994, 1995, 1996, 1997, 1998, 2000, 2001
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; Emacs lisp functions to convert Texinfo files to Info files.
@@ -362,7 +364,7 @@ if large.  You can use Info-split to do this manually."
     (save-excursion
       (goto-char (point-min))
       (or (search-forward "@setfilename" nil t)
-          (error "Texinfo file needs an `@setfilename FILENAME' line."))
+          (error "Texinfo file needs an `@setfilename FILENAME' line"))
       (setq texinfo-command-end (point))
       (setq outfile (texinfo-parse-line-arg)))
 
@@ -1105,10 +1107,10 @@ Leave point after argument."
   (goto-char texinfo-command-end)
   (skip-chars-forward " \t")
   (or (eolp)
-      (error "Extraneous text at end of command line."))
+      (error "Extraneous text at end of command line"))
   (goto-char texinfo-command-start)
   (or (bolp)
-      (error "Extraneous text at beginning of command line."))
+      (error "Extraneous text at beginning of command line"))
   (delete-region (point) (progn (forward-line 1) (point))))
 
 (defun texinfo-discard-line-with-args ()
@@ -1670,7 +1672,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
   (texinfo-discard-line)
   (let ((next (1+ (car (cdr (car texinfo-stack))))))
     (if (> next ?z)
-        (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
+        (error "More than 26 items in @alphaenumerate; get a bigger alphabet"))
     (setcar (cdr (car texinfo-stack)) next)
     (insert "\b  " next ". \n"))
   (forward-line -1))
@@ -1680,7 +1682,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
   (texinfo-discard-line)
   (let ((next (1+ (car (cdr (car texinfo-stack))))))
     (if (> next ?Z)
-        (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
+        (error "More than 26 items in @capsenumerate; get a bigger alphabet"))
     (setcar (cdr (car texinfo-stack)) next)
     (insert "\b  " next ". \n"))
   (forward-line -1))
@@ -2045,7 +2047,7 @@ This command is executed when texinfmt sees @item inside @multitable."
       (while (search-forward "@tab" nil t)
         (setq tab-number (1+ tab-number)))
       (if (/= tab-number (length table-widths))
-          (error "Wrong number of @tab's in a @multitable row.")))
+          (error "Wrong number of @tab's in a @multitable row")))
     (goto-char (point-min))
 ;; 2. Format each cell, and copy to a rectangle
     ;; buffer looks like this:    A1  @tab  A2  @tab  A3
@@ -4131,7 +4133,7 @@ Each file will be processed even if an error occurred previously.
 For example, invoke
   \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
   (if (not noninteractive)
-      (error "batch-texinfo-format may only be used -batch."))
+      (error "batch-texinfo-format may only be used -batch"))
   (let ((version-control t)
         (auto-save-default nil)
         (find-file-run-dired nil)
@@ -4188,4 +4190,4 @@ For example, invoke
 ;;; Place `provide' at end of file.
 (provide 'texinfmt)
 
-;;; texinfmt.el ends here.
+;;; texinfmt.el ends here
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 3d470ffb78b..04ae6fb5a8b 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -25,6 +25,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (or (fboundp 'defgroup)
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index c1df0a6fca3..a474e4c716c 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -538,7 +538,7 @@ Signal an error if not end of menu."
   (save-excursion
     (if (re-search-forward "^@end menu" nil t)
         (point)
-      (error "Menu does not have an end."))))
+      (error "Menu does not have an end"))))
 
 (defun texinfo-delete-old-menu (beginning first)
   "Delete the old menu.  Point must be in or after menu.
@@ -626,7 +626,7 @@ complements the node name rather than repeats it as a title does."
         ;; "Double colon" entry line; menu entry and node name are the same,
        ((search-forward "::" (save-excursion (end-of-line) (point)) t)
         (if (looking-at "[ \t]*[^ \t\n]+")
-            (error "Descriptive text already exists."))
+            (error "Descriptive text already exists"))
         (skip-chars-backward ": \t")
         (setq node-name (buffer-substring beginning (point))))
 
@@ -639,7 +639,7 @@ complements the node name rather than repeats it as a title does."
                                (save-excursion (forward-line 1) (point)) t)
             (progn
               (if (looking-at "[ \t]*[^ \t\n]+")
-                  (error "Descriptive text already exists."))
+                  (error "Descriptive text already exists"))
               (skip-chars-backward "., \t")
               (setq node-name (buffer-substring beginning (point))))
           ;; Menu entry line ends in a return.
@@ -648,9 +648,9 @@ complements the node name rather than repeats it as a title does."
           (skip-chars-backward " \t\n")
           (setq node-name (buffer-substring beginning (point)))
           (if (= 0 (length node-name))
-              (error "No node name on this line.")
+              (error "No node name on this line")
             (insert "."))))
-       (t (error "No node name on this line.")))
+       (t (error "No node name on this line")))
       ;; Search for node that matches node name, and copy the section title.
       (if (re-search-forward
            (concat
@@ -674,7 +674,7 @@ complements the node name rather than repeats it as a title does."
                    (progn (end-of-line)
                           (skip-chars-backward " \t")
                           (point)))))
-        (error "Cannot find node to match node name in menu entry.")))
+        (error "Cannot find node to match node name in menu entry")))
     ;; Return point to the menu and insert the title.
     (end-of-line)
     (delete-region
@@ -990,7 +990,7 @@ and leave point on the line before the `@end menu' line."
                       (goto-char end-of-menu)
                       ;; handle multi-line description
                       (if (not (re-search-backward "^\\* " nil t))
-                          (error "No entries in menu."))
+                          (error "No entries in menu"))
                       (point))))
     (while (< (point) last-entry)
       (if (re-search-forward  "^\\* " end-of-menu t)
@@ -1487,7 +1487,7 @@ Info `g*' command is inadequate."
       ;; update a single node
       (let ((auto-fill-function nil) (auto-fill-hook nil))
         (if (not (re-search-backward "^@node" (point-min) t))
-            (error "Node line not found before this position."))
+            (error "Node line not found before this position"))
         (texinfo-sequentially-update-the-node)
         (message
          "Done...sequentially updated the node .  You may save the buffer."))
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index a4c965a6966..b231a285675 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -5,6 +5,8 @@
 ;; Author: Daniel Pfeiffer <occitan@esperanto.org>
 ;; Adapted-By: ESR, Daniel Pfeiffer
 
+;; This file is part of GNU Emacs.
+
 ;; Esperanto:                            English:
 
 ;; ^Ci dosiero estas ero de GNU Emacs.   This file is part of GNU Emacs.
@@ -33,6 +35,7 @@
 ;; Free Software Foundation, 59 Temple Place - Suite 330
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
 ;;; Komentario:                          Commentary:
 
@@ -284,7 +287,7 @@ minus this value."
                 (kill-local-variable '2C-mode)
                 (kill-local-variable 'mode-line-format)
                 nil)))
-      (if req (error "You must first set two-column minor mode."))))
+      (if req (error "You must first set two-column minor mode"))))
 
 
 
@@ -385,7 +388,7 @@ accepting the proposed default buffer.
       (set-buffer b2)
       (and (2C-other)
            (not (eq b1 (2C-other)))
-           (error "Buffer already associated with buffer `%s'."
+           (error "Buffer already associated with buffer `%s'"
                   (buffer-name (2C-other))))
       (setq b1 (and (assq '2C-window-width (buffer-local-variables))
                     2C-window-width)))