Some fixes to follow coding conventions.

25 files changed, 99 insertions, 93 deletions

diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 8d2f3c6f961..1047ddf600f 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -1,4 +1,4 @@
-;;; antlr-mode.el --- Major mode for ANTLR grammar files
+;;; antlr-mode.el --- major mode for ANTLR grammar files
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 ;;
@@ -1532,8 +1532,6 @@ Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
 		     indent-tabs-mode (cadddr elem)
 		     alist nil))))))
 
-;;; antlr-mode.el ends here
-
 ; LocalWords:  antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
 ; LocalWords:  Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev
 ; LocalWords:  ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
@@ -1541,3 +1539,5 @@ Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
 ; LocalWords:  VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen
 ; LocalWords:  VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens
 ; LocalWords:  sclass evocab ivocab importVocab deps glibs supers sep dep lang
+
+;;; antlr-mode.el ends here
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index a90e9766d61..69bf7aab775 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -1,10 +1,10 @@
-;;; autoconf.el --- Mode for editing Autoconf configure.in files.
+;;; autoconf.el --- mode for editing Autoconf configure.in files
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: languages
-;; $Revision: $
+;; $Revision: 1.1 $
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 96aef6ad9d2..a701da6e808 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;; USAGE =============================================================
 
 ;; In C mode C-C C-e is bound to c-macro-expand.  The result of the
@@ -84,6 +86,7 @@
 ;; If the start point of the region is inside a macro definition the
 ;; macro expansion is often inaccurate.
 
+;;; Code:
 
 (require 'cc-mode)
 
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 395d3011c42..42377f5beb6 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1001,7 +1001,7 @@ the faces: please specify bold, italic, underline, shadow and box.)
       (defmacro cperl-ps-extend-face-list (arg)
 	`(ps-extend-face-list ,arg))
     (defmacro cperl-ps-extend-face-list (arg)
-      `(error "This version of Emacs has no `ps-extend-face-list'.")))
+      `(error "This version of Emacs has no `ps-extend-face-list'")))
   ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
   ;; macros instead of defsubsts don't work on Emacs, so we do the
   ;; expansion manually.  Any other suggestions?
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 590795a5540..53105b43b25 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -1,4 +1,4 @@
-;;; cpp.el --- Highlight or hide text according to cpp conditionals.
+;;; cpp.el --- highlight or hide text according to cpp conditionals
 
 ;; Copyright (C) 1994, 1995 Free Software Foundation
 
diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el
index bb6ac183555..b251487c9d5 100644
--- a/lisp/progmodes/cwarn.el
+++ b/lisp/progmodes/cwarn.el
@@ -1,4 +1,4 @@
-;;; cwarn.el --- Highlight suspicious C and C++ constructions.
+;;; cwarn.el --- highlight suspicious C and C++ constructions
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index c3e9a9e264f..8af7d07e2a3 100644
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1,4 +1,4 @@
-;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
+;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
 
 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
 
@@ -65,11 +65,15 @@
 (provide 'delphi)
 
 (defconst delphi-version
-  (let ((revision "$Revision: 3.4 $"))
+  (let ((revision "$Revision: 3.5 $"))
     (string-match ": \\([^ ]+\\)" revision)
     (match-string 1 revision))
   "Version of this delphi mode.")
 ;;; $Log: delphi.el,v $
+;;; Revision 3.5  2001/01/26 20:54:03  fx
+;;; (delphi-comment-face, delphi-string-face)
+;;; (delphi-keyword-face, delphi-other-face): Fix :type.
+;;;
 ;;; Revision 3.4  2000/02/09 07:04:15  blaak
 ;;; Make resourcestring a declaration region, like const and var.
 ;;;
@@ -2029,3 +2033,5 @@ no args, if that value is non-nil."
        (delphi-progress-done))))
 
   (run-hooks 'delphi-mode-hook))
+
+;;; delphi.el ends here
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index 436d4421ec3..1b748b3b9c3 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -1,11 +1,11 @@
-;;; ebnf-bnf --- Parser for EBNF
+;;; ebnf-bnf.el --- parser for EBNF
 
 ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:29:04 vinicius>
+;; Time-stamp: <2001-07-15 01:02:12 pavel>
 ;; Version:    1.5
 
 ;; This file is part of GNU Emacs.
@@ -107,7 +107,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -132,7 +132,7 @@
     (goto-char start)
     (setq token (ebnf-bnf-lex))
     (and (eq token 'end-of-input)
-	 (error "Invalid EBNF file format."))
+	 (error "Invalid EBNF file format"))
     (while (not (eq token 'end-of-input))
       (ebnf-message-float
        "Parsing...%s%%"
@@ -154,12 +154,12 @@
 	body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-	(error "Invalid header production."))
+	(error "Invalid header production"))
     (or (eq (ebnf-bnf-lex) 'equal)
-	(error "Invalid production: missing `='."))
+	(error "Invalid production: missing `='"))
     (setq body (ebnf-body))
     (or (eq (car body) 'period)
-	(error "Invalid production: missing `.'."))
+	(error "Invalid production: missing `.'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-bnf-lex)
@@ -217,7 +217,7 @@
        (let ((kind (ebnf-node-kind node)))
 	 (cond
 	  ((eq kind 'ebnf-generate-non-terminal)
-	   (error "Exception sequence should not contain a non-terminal."))
+	   (error "Exception sequence should not contain a non-terminal"))
 	  ((eq kind 'ebnf-generate-repeat)
 	   (ebnf-no-non-terminal (ebnf-node-separator node)))
 	  ((memq kind '(ebnf-generate-optional ebnf-generate-except))
@@ -240,7 +240,7 @@
       (ebnf-term token)
     (let ((times ebnf-bnf-lex))
       (or (eq (ebnf-bnf-lex) 'repeat)
-	  (error "Missing `*'."))
+	  (error "Missing `*'"))
       (ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex))))))
 
 
@@ -314,13 +314,13 @@
    ((eq token 'begin-group)
     (let ((body (ebnf-body)))
       (or (eq (car body) 'end-group)
-	  (error "Missing `)'."))
+	  (error "Missing `)'"))
       (cdr body)))
    ;; optional
    ((eq token 'begin-optional)
     (let ((body (ebnf-body)))
       (or (eq (car body) 'end-optional)
-	  (error "Missing `]'."))
+	  (error "Missing `]'"))
       (ebnf-token-optional (cdr body))))
    ;; list
    ((eq token 'begin-list)
@@ -341,7 +341,7 @@
        ((eq token 'end-zero-or-more)
 	(ebnf-make-zero-or-more list-part sep-part))
        (t
-	(error "Missing `}+', `}*' or `}'."))
+	(error "Missing `}+', `}*' or `}'"))
        )))
    ;; no term
    (t
@@ -441,7 +441,7 @@ See documentation for variable `ebnf-bnf-lex'."
 	'end-of-input)
        ;; error
        ((eq token 'error)
-	(error "Illegal character."))
+	(error "Illegal character"))
        ;; default
        ((eq token 'default)
 	(forward-char)
@@ -450,7 +450,7 @@ See documentation for variable `ebnf-bnf-lex'."
 	    (prog1
 		(ebnf-bnf-lex)
 	      (setq ebnf-default-p t))
-	  (error "Illegal `default' element.")))
+	  (error "Illegal `default' element")))
        ;; integer
        ((eq token 'integer)
 	(setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
@@ -533,7 +533,7 @@ See documentation for variable `ebnf-bnf-lex'."
 	 (forward-char)
 	 t)
 	(t
-	 (error "Illegal character."))
+	 (error "Illegal character"))
 	))
 
 
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el
index c5716f4a6ea..024063f19ec 100644
--- a/lisp/progmodes/ebnf-iso.el
+++ b/lisp/progmodes/ebnf-iso.el
@@ -1,11 +1,11 @@
-;;; ebnf-iso --- Parser for ISO EBNF
+;;; ebnf-iso.el --- parser for ISO EBNF
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:25:16 vinicius>
+;; Time-stamp: <2001-07-15 01:03:20 pavel>
 ;; Version:    1.5
 
 ;; This file is part of GNU Emacs.
@@ -117,7 +117,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -145,7 +145,7 @@
     (goto-char start)
     (setq token (ebnf-iso-lex))
     (and (eq token 'end-of-input)
-	 (error "Invalid ISO EBNF file format."))
+	 (error "Invalid ISO EBNF file format"))
     (while (not (eq token 'end-of-input))
       (ebnf-message-float
        "Parsing...%s%%"
@@ -167,12 +167,12 @@
 	body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-	(error "Invalid meta identifier syntax rule."))
+	(error "Invalid meta identifier syntax rule"))
     (or (eq (ebnf-iso-lex) 'equal)
-	(error "Invalid syntax rule: missing `='."))
+	(error "Invalid syntax rule: missing `='"))
     (setq body (ebnf-iso-definition-list))
     (or (eq (car body) 'period)
-	(error "Invalid syntax rule: missing `;' or `.'."))
+	(error "Invalid syntax rule: missing `;' or `.'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-iso-lex)
@@ -233,7 +233,7 @@
   (if (eq token 'integer)
       (let ((times ebnf-iso-lex))
 	(or (eq (ebnf-iso-lex) 'repeat)
-	    (error "Missing `*'."))
+	    (error "Missing `*'"))
 	(ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex))))
     (ebnf-iso-primary token)))
 
@@ -273,20 +273,20 @@
 	  ((eq token 'begin-group)
 	   (let ((body (ebnf-iso-definition-list)))
 	     (or (eq (car body) 'end-group)
-		 (error "Missing `)'."))
+		 (error "Missing `)'"))
 	     (cdr body)))
 	  ;; optional sequence
 	  ((eq token 'begin-optional)
 	   (let ((body (ebnf-iso-definition-list)))
 	     (or (eq (car body) 'end-optional)
-		 (error "Missing `]' or `/)'."))
+		 (error "Missing `]' or `/)'"))
 	     (ebnf-token-optional (cdr body))))
 	  ;; repeated sequence
 	  ((eq token 'begin-zero-or-more)
 	   (let* ((body   (ebnf-iso-definition-list))
 		  (repeat (cdr body)))
 	     (or (eq (car body) 'end-zero-or-more)
-		 (error "Missing `}' or `:)'."))
+		 (error "Missing `}' or `:)'"))
 	     (ebnf-make-zero-or-more repeat)))
 	  ;; empty
 	  (t
@@ -426,7 +426,7 @@ See documentation for variable `ebnf-iso-lex'."
 	'end-of-input)
        ;; error
        ((eq token 'error)
-	(error "Illegal character."))
+	(error "Illegal character"))
        ;; integer
        ((eq token 'integer)
 	(setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
@@ -451,7 +451,7 @@ See documentation for variable `ebnf-iso-lex'."
 			    (ebnf-trim-right
 			     (ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
 	(and ebnf-no-meta-identifier
-	     (error "Exception sequence should not contain a meta identifier."))
+	     (error "Exception sequence should not contain a meta identifier"))
 	'non-terminal)
        ;; begin optional, begin list or begin group
        ((eq token 'left-parenthesis)
@@ -511,7 +511,7 @@ See documentation for variable `ebnf-iso-lex'."
     (while (> pair 0)
       (skip-chars-forward ebnf-iso-comment-chars ebnf-limit)
       (cond ((>= (point) ebnf-limit)
-	     (error "Missing end of comment: `*)'."))
+	     (error "Missing end of comment: `*)'"))
 	    ((= (following-char) ?*)
 	     (skip-chars-forward "*" ebnf-limit)
 	     (when (= (following-char) ?\))
@@ -525,7 +525,7 @@ See documentation for variable `ebnf-iso-lex'."
 	       (forward-char)
 	       (setq pair (1+ pair))))
 	    (t
-	     (error "Illegal character."))
+	     (error "Illegal character"))
 	    ))))
 
 
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 224ce9f6433..0969f873bb7 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -1,11 +1,11 @@
-;;; ebnf-otz --- Syntatic chart OpTimiZer
+;;; ebnf-otz.el --- syntatic chart OpTimiZer
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 14:54:41 vinicius>
+;; Time-stamp: <2001-07-15 01:03:33 pavel>
 ;; Version:    1.0
 
 ;; This file is part of GNU Emacs.
@@ -39,7 +39,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf2ps)
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index a0a7f7048b9..317a193f399 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -1,11 +1,11 @@
-;;; ebnf-yac --- Parser for Yacc/Bison
+;;; ebnf-yac.el --- parser for Yacc/Bison
 
 ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:47:23 vinicius>
+;; Time-stamp: <2001-07-15 01:04:02 pavel>
 ;; Version:    1.1
 
 ;; This file is part of GNU Emacs.
@@ -70,7 +70,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -109,9 +109,9 @@
     (goto-char start)
     (setq token (ebnf-yac-lex))
     (and (eq token 'end-of-input)
-	 (error "Invalid Yacc/Bison file format."))
+	 (error "Invalid Yacc/Bison file format"))
     (or (eq (ebnf-yac-definitions token) 'yac-separator)
-	(error "Missing `%%%%'."))
+	(error "Missing `%%%%'"))
     (setq token (ebnf-yac-lex))
     (while (not (memq token '(end-of-input yac-separator)))
       (ebnf-message-float
@@ -140,9 +140,9 @@
 	      (setq token (ebnf-yac-lex))
 	      (when (eq token 'open-angle)
 		(or (eq (ebnf-yac-lex) 'non-terminal)
-		    (error "Missing type name."))
+		    (error "Missing type name"))
 		(or (eq (ebnf-yac-lex) 'close-angle)
-		    (error "Missing `>'."))
+		    (error "Missing `>'"))
 		(setq token (ebnf-yac-lex)))
 	      (setq token               (ebnf-yac-name-list token)
 		    ebnf-yac-token-list (nconc (cdr token)
@@ -163,12 +163,12 @@
 	body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-	(error "Invalid rule name."))
+	(error "Invalid rule name"))
     (or (eq (ebnf-yac-lex) 'colon)
-	(error "Invalid rule: missing `:'."))
+	(error "Invalid rule: missing `:'"))
     (setq body (ebnf-yac-alternative))
     (or (eq (car body) 'period)
-	(error "Invalid rule: missing `;'."))
+	(error "Invalid rule: missing `;'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-yac-lex)
@@ -243,7 +243,7 @@
 		     token (ebnf-yac-lex))
 	       (eq token 'comma))
 	(or (eq (ebnf-yac-lex) 'non-terminal)
-	    (error "Missing token name."))))
+	    (error "Missing token name"))))
     (cons token names)))
 
 
@@ -332,7 +332,7 @@ See documentation for variable `ebnf-yac-lex'."
 	'end-of-input)
        ;; error
        ((eq token 'error)
-	(error "Illegal character."))
+	(error "Illegal character"))
        ;; "string"
        ((eq token 'string)
 	(setq ebnf-yac-lex (ebnf-get-string))
@@ -405,7 +405,7 @@ See documentation for variable `ebnf-yac-lex'."
        ((= (following-char) ?\')
 	(ebnf-string " -&(-~" ?\' "character"))
        (t
-	(error "Illegal character."))
+	(error "Illegal character"))
        )))
   (ebnf-yac-skip-spaces))
 
@@ -448,7 +448,7 @@ See documentation for variable `ebnf-yac-lex'."
     (while not-end
       (skip-chars-forward ebnf-yac-comment-chars ebnf-limit)
       (cond ((>= (point) ebnf-limit)
-	     (error "Missing end of comment: `*/'."))
+	     (error "Missing end of comment: `*/'"))
 	    ((= (following-char) ?*)
 	     (skip-chars-forward "*" ebnf-limit)
 	     (when (= (following-char) ?/)
@@ -456,7 +456,7 @@ See documentation for variable `ebnf-yac-lex'."
 	       (forward-char)
 	       (setq not-end nil)))
 	    (t
-	     (error "Illegal character."))
+	     (error "Illegal character"))
 	    ))))
 
 
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 1eb251f49c5..0ee3bda26f8 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1,11 +1,11 @@
-;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
+;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp:        <2001/02/02 15:23:39 vinicius>
+;; Time-stamp:        <2001-07-15 01:05:00 pavel>
 ;; Version:   3.5
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
 
@@ -1000,7 +1000,7 @@ Please send all bug fixes and enhancements to
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ps-print)
@@ -4974,7 +4974,7 @@ end
      ;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
      (skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
      (if (or (eobp) (/= (following-char) eos-char))
-	 (error "Illegal %s: missing `%c'." kind eos-char)
+	 (error "Illegal %s: missing `%c'" kind eos-char)
        (forward-char)
        (1- (point))))))
 
@@ -4992,7 +4992,7 @@ end
       (goto-char (+ (point) n 1))))
   (if (= (preceding-char) ?\")
       (1- (point))
-    (error "Missing `\"'.")))
+    (error "Missing `\"'")))
 
 
 (defun ebnf-trim-right (str)
@@ -5300,5 +5300,4 @@ end
 
 (provide 'ebnf2ps)
 
-
 ;;; ebnf2ps.el ends here
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index eecaab17e3d..ce2b0b68cbb 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -284,4 +284,4 @@ file modes."
 
 (provide 'executable)
 
-;; executable.el ends here
+;;; executable.el ends here
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 4618ab8ae89..f921e59782d 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -813,7 +813,7 @@ See also `fortran-window-create-momentarily'."
 	  (other-window 1)
 	  (switch-to-buffer " fortran-window-extra" t)
 	  (select-window (previous-window))))
-    (error (message "No room for Fortran window.")
+    (error (message "No room for Fortran window")
 	   'error)))
 
 (defun fortran-window-create-momentarily (&optional arg)
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 3451610ce8e..ec1729becaa 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1,10 +1,10 @@
-;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs.
+;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs
 ;; Copyright (c) 1999, 2000 Free Software Foundation
 
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:13:34 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el
index 8ae95d772b4..0247d037e62 100644
--- a/lisp/progmodes/idlw-toolbar.el
+++ b/lisp/progmodes/idlw-toolbar.el
@@ -1,9 +1,9 @@
-;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE
+;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
 ;; Copyright (c) 1999, 2000 Free Software Foundation
 
 ;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:14:24 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
@@ -873,5 +873,3 @@ static char * file[] = {
 (provide 'idlwave-toolbar)
 
 ;;; idlw-toolbar.el ends here
-
-
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index f18189c948f..03f78af3acf 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4,10 +4,10 @@
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:12:40 $
 ;; Keywords: languages
 
-;; This file is part of the 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
@@ -4256,7 +4256,7 @@ will pop up."
 		(file-name-directory idlwave-libinfo-file))
 	       (not (string= "" (file-name-nondirectory 
 				 idlwave-libinfo-file))))
-    (error "`idlwave-libinfo-file' does not point to file in accessible directory."))
+    (error "`idlwave-libinfo-file' does not point to file in accessible directory"))
   
   (cond
    ((and arg idlwave-path-alist
@@ -5952,7 +5952,7 @@ The list is cashed in `idlwave-class-info' for faster access."
 	(let* ((class (nth 2 (idlwave-current-routine))))
 	  ;; Check if we are in a class routine
 	  (unless class
-	    (error "Not in a method procedure or function."))
+	    (error "Not in a method procedure or function"))
 	  ;; Check if we need to update the "current" class
 	  (if (not (equal class idlwave-current-tags-class))
 	      (idlwave-prepare-class-tag-completion class))
@@ -6200,7 +6200,7 @@ Works for system routines and keywords only."
   (if idlwave-help-is-loaded
       t  ;; everything is OK.
     (let* ((dir (or (idlwave-help-directory)
-		    (error "Online Help is not installed (idlwave-help-directory is unknown).")))
+		    (error "Online Help is not installed (idlwave-help-directory is unknown)")))
 	   (lfile1 (expand-file-name "idlw-help.elc" dir))
 	   (lfile2 (expand-file-name "idlw-help.el" dir))
 	   (hfile (expand-file-name "idlw-help.txt" dir)))
@@ -6260,7 +6260,7 @@ prefix arg, the class property is cleared out."
       (if (car module)
 	  (apply 'idlwave-display-calling-sequence
 		 (idlwave-fix-module-if-obj_new module))
-	(error "Don't know which calling sequence to show.")))))
+	(error "Don't know which calling sequence to show")))))
 
 (defun idlwave-resolve (&optional arg)
   "Call RESOLVE on the module name at point.
@@ -6364,10 +6364,10 @@ use.  With ARG force class query for object methods."
      ((null entry)
       (error "Nothing known about a module %s" name2))
      ((eq (car source) 'system)
-      (error "Source code for system routine %s is not available." 
+      (error "Source code for system routine %s is not available" 
 	     name2))
      ((equal (cdr source) "")
-      (error "Source code for routine %s is not available."
+      (error "Source code for routine %s is not available"
 	     name2))
      ((memq (car source) '(buffer lib compiled))
       (setq buf1 
@@ -6663,7 +6663,7 @@ If we do not know about MODULE, just return KEYWORD literally."
       (error "No %s %s known %s" type name
 	     (if initial-class (concat "in class " initial-class) "")))
      ((or (null name) (equal name ""))
-      (error "No function or procedure call at point."))
+      (error "No function or procedure call at point"))
      ((null calling-seq)
       (error "Calling sequence of %s %s is not available" type name))
      (t
@@ -6945,7 +6945,7 @@ with this command."
 	(not (idlwave-shell-is-running)))
     (error "Shell is not running"))
    ((null idlwave-compiled-routines)
-    (error "No compiled routines.  Maybe you need to update with `C-c C-i'."))
+    (error "No compiled routines.  Maybe you need to update with `C-c C-i'"))
    (t
     (idlwave-list-load-path-shadows nil idlwave-compiled-routines
 				    "in the shell"))))
@@ -7603,5 +7603,3 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
 (provide 'idlwave)
 
 ;;; idlwave.el ends here
-
-
diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index 78c32490e1c..d16409092e1 100644
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -172,4 +172,4 @@
 ;;;		  "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit" 
 ;;;		  "m4_m4_undefine" "m4_undivert"))
 
-;;; m4.el ends here
+;;; m4-mode.el ends here
diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el
index 6c1ca3af27d..9b8fa4a6ea3 100644
--- a/lisp/progmodes/mantemp.el
+++ b/lisp/progmodes/mantemp.el
@@ -1,4 +1,4 @@
-;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output.
+;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index fff1a39e7a5..ec53cd1957b 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -1,4 +1,4 @@
-;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources.
+;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index dd26918e4e2..1274c3eff31 100644
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'octave-mod)
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 3d011672d8e..772374de6ab 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -1,4 +1,4 @@
-;;; ps-mode.el --- PostScript mode for GNU Emacs.
+;;; ps-mode.el --- PostScript mode for GNU Emacs
 
 ;; Copyright (C) 1999 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 78aed798e1b..f4c8df155f1 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -1,4 +1,4 @@
-;;; scheme.el --- Scheme (and DSSSL) editing mode.
+;;; scheme.el --- Scheme (and DSSSL) editing mode
 
 ;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index a7321711c9d..1ed49836807 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -259,7 +259,7 @@ for SIMULA mode to function correctly."
 					       (match-beginning 2)
 					       (match-end 2)))))
     (if (not (and major minor))
-	(error "Cannot figure out the major and minor version numbers."))
+	(error "Cannot figure out the major and minor version numbers"))
     ;; calculate the major version
     (cond
      ((= major 18) (setq major 'v18))	;Emacs 18
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 9e54726b81d..f6e559ac8cf 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1,4 +1,4 @@
-;; tcl.el --- Tcl code editing commands for Emacs
+;;; tcl.el --- Tcl code editing commands for Emacs
 
 ;; Copyright (C) 1994, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
 
@@ -6,7 +6,7 @@
 ;; Author: Tom Tromey <tromey@busco.lanl.gov>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
-;; Version: $Revision: 1.61 $
+;; Version: $Revision: 1.62 $
 
 ;; This file is part of GNU Emacs.
 
@@ -132,7 +132,7 @@
 	   (require 'imenu))
        ()))
 
-(defconst tcl-version "$Revision: 1.61 $")
+(defconst tcl-version "$Revision: 1.62 $")
 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
 
 ;;