Some fixes to follow coding conventions.

lisp/ChangeLog

 2001-07-15  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el,
+	eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el,
+	eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el,
+	eshell/em-prompt.el, eshell/em-rebind.el, eshell/em-script.el,
+	eshell/em-smart.el, eshell/em-term.el, eshell/em-unix.el,
+	eshell/em-xtra.el, eshell/esh-arg.el, eshell/esh-cmd.el,
+	eshell/esh-ext.el, eshell/esh-io.el, eshell/esh-maint.el,
+	eshell/esh-mode.el, eshell/esh-module.el, eshell/esh-opt.el,
+	eshell/esh-proc.el, eshell/esh-test.el, eshell/esh-util.el,
+	eshell/esh-var.el, eshell/eshell.el: Some fixes to follow coding
+	conventions in Eshell files.
+
+	* composite.el, diff.el, emacs-lisp/levents.el,
+	emacs-lisp/lmenu.el, emacs-lisp/lselect.el, emacs-lisp/lucid.el,
+	emulation/pc-mode.el, emulation/viper-cmd.el,
+	emulation/viper-ex.el, emulation/viper-init.el,
+	emulation/viper-keym.el, emulation/viper-macs.el,
+	emulation/viper-mous.el, emulation/viper-util.el,
+	emulation/viper.el, forms-pass.el, international/ccl.el,
+	international/characters.el, international/encoded-kb.el,
+	international/fontset.el, international/ja-dic-cnv.el,
+	international/ja-dic-utl.el, international/kinsoku.el,
+	international/kkc.el, international/mule-cmds.el,
+	international/mule-diag.el, international/mule-util.el,
+	international/mule.el, international/titdic-cnv.el,
+	language/china-util.el, language/chinese.el,
+	language/cyril-util.el, language/cyrillic.el, language/english.el,
+	language/greek.el, language/hebrew.el, language/japan-util.el,
+	language/japanese.el, language/korea-util.el, language/korean.el,
+	language/lao-util.el, language/lao.el, language/misc-lang.el,
+	language/slovak.el, language/thai-util.el, language/thai.el,
+	language/viet-util.el, language/vietnamese.el, mail/mh-comp.el,
+	mail/mh-e.el, mail/mh-funcs.el, mail/mh-mime.el, mail/mh-pick.el,
+	mail/mh-seq.el, mail/mh-utils.el, mail/sc.el, mail/unrmail.el,
+	midnight.el, patcomp.el, pcmpl-cvs.el, pcmpl-gnu.el,
+	pcmpl-linux.el, pcmpl-rpm.el, pcmpl-unix.el, play/studly.el,
+	play/zone.el, replace.el, select.el, subr.el, talk.el, term.el,
+	term/apollo.el, term/bobcat.el, term/linux.el, term/lk201.el,
+	term/vt102.el, term/vt125.el, term/vt200.el, term/vt201.el,
+	term/vt220.el, term/vt240.el, term/vt300.el, term/vt320.el,
+	term/vt400.el, term/vt420.el, x-apollo.el, x-menu.el: Some fixes
+	to follow coding conventions in files without maintainer or in
+	files with clear maintainer (but without Maintainer header stating
+	so).
+
+	* emacs-lisp/elp.el: A fix to follow coding conventions.
+
 	* gnus/binhex.el, gnus/binhex.el, gnus/earcon.el,
 	gnus/gnus-agent.el, gnus/gnus-art.el, gnus/gnus-audio.el,
 	gnus/gnus-logic.el, gnus/gnus-ml.el, gnus/gnus-mlspl.el,

lisp/composite.el

-;;; composite.el --- Support character composition.
+;;; composite.el --- support character composition
 
 ;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload

lisp/diff.el

-;;; diff.el --- Run `diff' in compilation-mode.
+;;; diff.el --- run `diff' in compilation-mode
 
 ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
 

lisp/emacs-lisp/elp.el

@@ -2,10 +2,10 @@
 
 ;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc.
 
-;; Author:        1994-1998 Barry A. Warsaw
-;; Maintainer:    FSF
-;; Created:       26-Feb-1994
-;; Keywords:      debugging lisp tools
+;; Author: Barry A. Warsaw
+;; Maintainer: FSF
+;; Created: 26-Feb-1994
+;; Keywords: debugging lisp tools
 
 ;; This file is part of GNU Emacs.
 
@@ -331,7 +331,7 @@ For example, to instrument all ELP functions, do the following:
     \\[elp-instrument-package] RET elp- RET"
   (interactive "sPrefix of package to instrument: ")
   (if (zerop (length prefix))
-      (error "Instrumenting all Emacs functions would render Emacs unusable."))
+      (error "Instrumenting all Emacs functions would render Emacs unusable"))
   (elp-instrument-list
    (mapcar
     'intern
@@ -362,7 +362,7 @@ Use optional LIST if provided instead."
   (interactive "aFunction to reset: ")
   (let ((info (get funsym elp-timer-info-property)))
     (or info
-	(error "%s is not instrumented for profiling." funsym))
+	(error "%s is not instrumented for profiling" funsym))
     (aset info 0 0)			;reset call counter
     (aset info 1 0.0)			;reset total time
     ;; don't muck with aref 2 as that is the old symbol definition
@@ -417,7 +417,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
 	 (func (aref info 2))
 	 result)
     (or func
-	(error "%s is not instrumented for profiling." funsym))
+	(error "%s is not instrumented for profiling" funsym))
     (if (not elp-record-p)
 	;; when not recording, just call the original function symbol
 	;; and return the results.
@@ -591,4 +591,4 @@ displayed."
 
 (provide 'elp)
 
-;; elp.el ends here
+;;; elp.el ends here

lisp/emacs-lisp/levents.el

-;;; levents.el --- emulate the Lucid event data type and associated functions.
+;;; levents.el --- emulate the Lucid event data type and associated functions
 
 ;; Copyright (C) 1993 Free Software Foundation, Inc.
 

lisp/emacs-lisp/lmenu.el

@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 

lisp/emacs-lisp/lselect.el

@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; The selection code requires us to use certain symbols whose names are
@@ -229,4 +231,4 @@ the kill ring or the Clipboard."
 
 (provide 'lselect)
 
-;;; lselect.el ends here.
+;;; lselect.el ends here

lisp/emacs-lisp/lucid.el

-;;; lucid.el --- Emulate some Lucid Emacs functions.
+;;; lucid.el --- emulate some Lucid Emacs functions
 
 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
 
@@ -19,6 +19,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; XEmacs autoloads CL so we might as well make use of it.
@@ -224,4 +226,4 @@ bottom of the buffer stack."
 
 (provide 'lucid)
 
-;;; end of lucid.el
+;;; lucid.el ends here

lisp/emulation/pc-mode.el

-;;; pc-mode.el --- emulate certain key bindings used on PCs.
+;;; pc-mode.el --- emulate certain key bindings used on PCs
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
@@ -51,4 +53,4 @@ C-Escape does list-buffers."
 
 (provide 'pc-mode)
 
-;; pc-mode.el ends here
+;;; pc-mode.el ends here

lisp/emulation/viper-cmd.el

@@ -18,7 +18,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-cmd)
 (require 'advice)
@@ -1489,7 +1491,7 @@ If the prefix argument, ARG, is non-nil, it is used instead of `val'."
 	    (com (nth 2 viper-d-com))
 	    (reg (nth 3 viper-d-com)))
         (if (null val) (setq val (nth 1 viper-d-com)))
-        (if (null m-com) (error "No previous command to repeat."))
+        (if (null m-com) (error "No previous command to repeat"))
         (setq viper-use-register reg)
 	(if (nth 4 viper-d-com) ; text inserted by command
 	    (setq viper-last-insertion (nth 4 viper-d-com)
@@ -4902,4 +4904,4 @@ Mail anyway (y or n)? ")
   
   
 
-;;;  viper-cmd.el ends here
+;;; viper-cmd.el ends here

lisp/emulation/viper-ex.el

@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-ex)
 
@@ -1436,7 +1438,7 @@ reversed."
     (if name
 	(if (eq 1 (length name))
 	    (setq char (string-to-char name))
-	  (error "`%s': Spurious text \"%s\" after mark name."
+	  (error "`%s': Spurious text \"%s\" after mark name"
 		 name (substring name 1) viper-SpuriousText))
     (save-window-excursion
       (setq viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name)) 
@@ -2221,4 +2223,4 @@ Please contact your system administrator. "
 
 
 
-;;;  viper-ex.el ends here
+;;; viper-ex.el ends here

lisp/emulation/viper-init.el

@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-init)
 
@@ -986,4 +988,4 @@ Should be set in `~/.viper' file."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper-ex.el ends here
+;;; viper-init.el ends here

lisp/emulation/viper-keym.el

@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-keym)
 
@@ -630,4 +632,4 @@ form ((key . function) (key . function) ... )."
 ;;; End:
 
 
-;;;  viper-keym.el ends here
+;;; viper-keym.el ends here

lisp/emulation/viper-macs.el

@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-macs)
 
@@ -945,4 +947,4 @@ name from there."
     (call-last-kbd-macro)))
 
 
-;;;  viper-macs.el ends here
+;;; viper-macs.el ends here

lisp/emulation/viper-mous.el

@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-mous)
 
@@ -247,7 +249,7 @@ On single or double click, returns the word as determined by
 	      (goto-char click-pos)
 	      (setq click-word
 		    (funcall viper-surrounding-word-function count click-count)))
-	  (error "Click must be over a window."))
+	  (error "Click must be over a window"))
 	click-word))))
 
 
@@ -664,4 +666,4 @@ This buffer may be different from the one where the click occurred."
 ;;; End:
 
 
-;;;  viper-mous.el ends here
+;;; viper-mous.el ends here

lisp/emulation/viper-util.el

-;;; viper-util.el --- Utilities used by viper.el
+;;; viper-util.el --- utilities used by viper.el
 
 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 
@@ -19,8 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
-;; Code
+;;; Code:
 
 ;; Compiler pacifier
 (defvar viper-overriding-map)
@@ -1382,4 +1383,4 @@ This option is appropriate if you like Emacs-style words."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper-util.el ends here
+;;; viper-util.el ends here

lisp/emulation/viper.el

-;;; viper.el --- A full-featured Vi emulator for GNU Emacs and XEmacs,
+;;; viper.el --- a full-featured Vi emulator for GNU Emacs and XEmacs,
 ;;		 a VI Plan for Emacs Rescue,
 ;;		 and a venomous VI PERil.
 ;;		 Viper Is also a Package for Emacs Rebels.
 ;;
-;;  Keywords: emulations
-;;  Author: Michael Kifer <kifer@cs.sunysb.edu>
+;; Keywords: emulations
+;; Author: Michael Kifer <kifer@cs.sunysb.edu>
 
 ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01 Free Software Foundation, Inc.
 
@@ -294,7 +294,7 @@
 ;;    much easier.
 ;;
 
-;; Code
+;;; Code:
 
 (require 'advice)
 (require 'cl)
@@ -1280,4 +1280,4 @@ These two lines must come in the order given.
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper.el ends here
+;;; viper.el ends here

lisp/eshell/em-alias.el

-;;; em-alias --- creation and management of command aliases
+;;; em-alias.el --- creation and management of command aliases
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-banner.el

-;;; em-banner --- sample module that displays a login banner
+;;; em-banner.el --- sample module that displays a login banner
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-basic.el

-;;; em-basic --- basic shell builtin commands
+;;; em-basic.el --- basic shell builtin commands
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-cmpl.el

-;;; em-cmpl --- completion using the TAB key
+;;; em-cmpl.el --- completion using the TAB key
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-dirs.el

-;;; em-dirs --- directory navigation commands
+;;; em-dirs.el --- directory navigation commands
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-glob.el

-;;; em-glob --- extended file name globbing
+;;; em-glob.el --- extended file name globbing
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-hist.el

-;;; em-hist --- history list management
+;;; em-hist.el --- history list management
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-ls.el

-;;; em-ls --- implementation of ls in Lisp
+;;; em-ls.el --- implementation of ls in Lisp
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-pred.el

-;;; em-pred --- argument predicates and modifiers (ala zsh)
+;;; em-pred.el --- argument predicates and modifiers (ala zsh)
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 
@@ -58,6 +58,8 @@ ordinary strings."
 ;; See the zsh docs for more on the syntax ([(zsh.info)Filename
 ;; Generation]).
 
+;;; Code:
+
 ;;; User Variables:
 
 (defcustom eshell-pred-load-hook '(eshell-pred-initialize)

lisp/eshell/em-prompt.el

-;;; em-prompt --- command prompts
+;;; em-prompt.el --- command prompts
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-rebind.el

-;;; em-rebind --- rebind keys when point is at current input
+;;; em-rebind.el --- rebind keys when point is at current input
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-script.el

-;;; em-script --- Eshell script files
+;;; em-script.el --- Eshell script files
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-smart.el

-;;; em-smart --- smart display of output
+;;; em-smart.el --- smart display of output
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-term.el

-;;; em-term --- running visual commands
+;;; em-term.el --- running visual commands
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/em-unix.el

-;;; em-unix --- UNIX command aliases
+;;; em-unix.el --- UNIX command aliases
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
 

lisp/eshell/em-xtra.el

-;;; em-xtra --- extra alias functions
+;;; em-xtra.el --- extra alias functions
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-arg.el

-;;; esh-arg --- argument processing
+;;; esh-arg.el --- argument processing
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-cmd.el

-;;; esh-cmd --- command invocation
+;;; esh-cmd.el --- command invocation
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-ext.el

-;;; esh-ext --- commands external to Eshell
+;;; esh-ext.el --- commands external to Eshell
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-io.el

-;;; esh-io --- I/O management
+;;; esh-io.el --- I/O management
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-maint.el

-;;; esh-maint --- init code for building eshell
+;;; esh-maint.el --- init code for building eshell
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-mode.el

-;;; esh-mode --- user interface
+;;; esh-mode.el --- user interface
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-module.el

-;;; esh-module --- Eshell modules
+;;; esh-module.el --- Eshell modules
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-opt.el

-;;; esh-opt --- command options processing
+;;; esh-opt.el --- command options processing
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-proc.el

-;;; esh-proc --- process management
+;;; esh-proc.el --- process management
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-test.el

-;;; esh-test --- Eshell test suite
+;;; esh-test.el --- Eshell test suite
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/esh-util.el

-;;; esh-util --- general utilities
+;;; esh-util.el --- general utilities
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
 

lisp/eshell/esh-var.el

-;;; esh-var --- handling of variables
+;;; esh-var.el --- handling of variables
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/eshell/eshell.el

-;;; eshell --- the Emacs command shell
+;;; eshell.el --- the Emacs command shell
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 

lisp/forms-pass.el

 ;;; forms-pass.el --- passwd file demo for forms-mode
 
+;; This file is part of GNU Emacs.
+
+;;; Commentary:
+
 ;; This demo visits your passwd file.
 
+;;; Code:
+
 ;; use yp if present
 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
     (setq forms-file "/etc/passwd"))
@@ -23,3 +29,5 @@
        "\n\n"
        "Shell: "	7
        "\n"))
+
+;;; forms-pass.el ends here

lisp/international/ccl.el

@@ -317,7 +317,7 @@
 (defun ccl-check-register (arg cmd)
   (if (get arg 'ccl-register-number)
       arg
-    (error "CCL: Invalid register %s in %s." arg cmd)))
+    (error "CCL: Invalid register %s in %s" arg cmd)))
 
 ;; Check if ARG is a valid CCL command.
 (defun ccl-check-compile-function (arg cmd)