Fixes to follow coding conventions.

10 files changed, 57 insertions, 28 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a58afd93384..3ceb094d223 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
+2001-07-16  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* allout.el: A fix to follow coding conventions.
+
+	* find-lisp.el: A fix to follow coding conventions.
+
+	* term/w32-win.el: A fix to follow coding conventions.
+
+	* textmodes/sgml-mode.el: A fix to follow coding conventions.
+
+	* term/xterm.el: A fix to follow coding conventions.
+
+	* term/news.el: A fix to follow coding conventions.
+
+	* emulation/vi.el: A fix to follow coding conventions, Maintainer:
+	header line fixed.
+
+	* sun-curs.el: Fix Maintainer: header line.
+
+	* emacs-lisp/easymenu.el: Address of the author added.
+
 2001-07-16  Gerd Moellmann  <gerd@gnu.org>
 
 	* dired.el (dired-insert-set-properties): Fix invalid mouse-face
diff --git a/lisp/allout.el b/lisp/allout.el
index 0caae6fc289..d12ac29ba54 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1,11 +1,11 @@
-;;; allout.el --- Extensive outline mode for use alone and with other modes.
+;;; allout.el --- extensive outline mode for use alone and with other modes
 
 ;; Copyright (C) 1992, 1993, 1994, 2001 Free Software Foundation, Inc.
 
 ;; Author: Ken Manheimer <klm@python.org>
 ;; Maintainer: Ken Manheimer <klm@python.org>
 ;; Created: Dec 1991 - first release to usenet
-;; Version: $Id: allout.el,v 1.27 2001/02/26 12:07:48 gerd Exp $||
+;; Version: $Id: allout.el,v 1.28 2001/07/02 10:45:54 eliz Exp $||
 ;; Keywords: outline mode wp languages
 
 ;; This file is part of GNU Emacs.
@@ -25,7 +25,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;;_* Commentary:
+;;; Commentary:
 
 ;; Allout outline mode provides extensive outline formatting and
 ;; and manipulation beyond standard emacs outline mode.  It provides
@@ -60,6 +60,8 @@
 
 ;; Ken Manheimer	klm@python.org
 
+;;; Code:
+
 ;;;_* Provide
 (provide 'outline)
 (provide 'allout)
@@ -507,7 +509,7 @@ behavior."
 ;;;_  : Version
 ;;;_   = outline-version
 (defvar outline-version
-  (let ((rcs-rev "$Revision: 1.27 $"))
+  (let ((rcs-rev "$Revision: 1.28 $"))
     (condition-case err
 	(save-match-data
 	  (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
@@ -1982,7 +1984,7 @@ DONT-COMPLAIN is non-nil."
 	(progn (goto-char last-good)
 	       (if (interactive-p) (outline-end-of-prefix))
 	       (if (not dont-complain)
-		   (error "Can't ascend past outermost level.")
+		   (error "Can't ascend past outermost level")
 		 (if (interactive-p) (outline-end-of-prefix))
 		 nil))
       (if (interactive-p) (outline-end-of-prefix))
@@ -2126,7 +2128,7 @@ Returns resulting position, else nil if none found."
       (if (not (interactive-p))
 	  nil
 	(outline-end-of-prefix)
-	(error "Hit %s level %d topic, traversed %d of %d requested."
+	(error "Hit %s level %d topic, traversed %d of %d requested"
 	       (if backward "first" "last")
 	       (outline-recent-depth)
 	       (- (abs start-arg) arg)
@@ -3143,7 +3145,7 @@ itself.  The are STARTING-DEPTH, STARTING-POINT, and INDEX."
     (and on-starting-call
          moving-outwards
          (> 0 (+ starting-depth relative-depth))
-         (error "Attempt to shift topic out beyond level 1."))	;;; ====>
+         (error "Attempt to shift topic out beyond level 1"))	;;; ====>
 
     (cond ((= starting-depth new-depth)
            ;; We're at depth to work on this one:
@@ -3718,7 +3720,7 @@ expose this topic and its siblings."
     (if (<= (outline-current-depth) 0)
 	;; Outside any topics - try to get to the first:
 	(if (not (outline-next-heading))
-	    (error "No topics.")
+	    (error "No topics")
 	  ;; got to first, outermost topic - set to expose it and siblings:
 	  (message "Above outermost topic - exposing all.")
 	  (outline-flag-region (point-min)(point-max) ?\n))
@@ -3740,7 +3742,7 @@ siblings, even if the target topic is already closed."
   (let ((from (point))
 	(orig-eol (progn (end-of-line)
 			 (if (not (outline-goto-prefix))
-			     (error "No topics found.")
+			     (error "No topics found")
 			   (end-of-line)(point)))))
     (outline-flag-current-subtree ?\r)
     (goto-char from)
@@ -4025,7 +4027,7 @@ Examples:
   (list 'save-excursion
 	'(if (not (or (outline-goto-prefix)
 		      (outline-next-heading)))
-	     (error "outline-new-exposure: Can't find any outline topics."))
+	     (error "outline-new-exposure: Can't find any outline topics"))
 	(list 'outline-expose-topic (list 'quote spec))))
 ;;;_   > outline-exposure '()
 (defmacro outline-exposure (&rest spec)
@@ -4036,7 +4038,7 @@ and retains start position."
   (list 'save-excursion
 	'(if (not (or (outline-goto-prefix)
 		      (outline-next-heading)))
-	     (error "Can't find any outline topics."))
+	     (error "Can't find any outline topics"))
 	(cons 'outline-old-expose-topic
 	      (mapcar (function (lambda (x) (list 'quote x))) spec))))
 
@@ -4767,4 +4769,4 @@ so pass them along when appropriate."
 ;;;outline-layout: (0 : -1 -1 0)
 ;;;End:
 
-;; allout.el ends here
+;;; allout.el ends here
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 4364381dce9..245feb78983 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -1,9 +1,9 @@
-;;; easymenu.el --- support the easymenu interface for defining a menu.
+;;; easymenu.el --- support the easymenu interface for defining a menu
 
 ;; Copyright (C) 1994, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Keywords: emulations
-;; Author: rms
+;; Author: Richard Stallman <rms@gnu.org>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index dbc4ade3ef0..1509a78601f 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -1,14 +1,15 @@
-;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
+;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs
 
 ; This file is in the public domain because the authors distributed it
 ; without a copyright notice before the US signed the Bern Convention.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Neal Ziring <nz@rsch.wisc.edu>
 ;;	Felix S. T. Wu <wu@crys.wisc.edu>
-;; Maintainer: none
 ;; Keywords: emulations
 
-;;; Commentary: 
+;;; Commentary:
 
 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index b59978a54f4..937a82348f3 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -1,9 +1,9 @@
-;;; find-lisp.el --- Emulation of find in Emacs Lisp
+;;; find-lisp.el --- emulation of find in Emacs Lisp
 
-;; Author:  Peter Breton
+;; Author: Peter Breton
 ;; Created: Fri Mar 26 1999
 ;; Keywords: unix
-;; Time-stamp: <2000-10-04 00:17:29 pbreton>
+;; Time-stamp: <2001-07-16 12:42:35 pavel>
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
@@ -356,8 +356,8 @@ It is a function which takes two arguments, the directory and its parent."
 
 (provide 'find-lisp)
 
-;;; find-lisp.el ends here
-
 ;; Local Variables:
 ;; autocompile: t
 ;; End:
+
+;;; find-lisp.el ends here
diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el
index 934114232cd..3eedae9a8b8 100644
--- a/lisp/sun-curs.el
+++ b/lisp/sun-curs.el
@@ -3,7 +3,6 @@
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; Author: Jeff Peck <peck@sun.com>
-;; Maintainer: none
 ;; Keywords: hardware
 
 ;; This file is part of GNU Emacs.
@@ -23,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;
diff --git a/lisp/term/news.el b/lisp/term/news.el
index af8635fb06d..9830aed2533 100644
--- a/lisp/term/news.el
+++ b/lisp/term/news.el
@@ -33,7 +33,7 @@
   ;; The terminal initialization should already have set up some keys
   (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
   (if (not (keymapp news-fkey-prefix))
-      (error "What?  Your news termcap/terminfo has no keycaps in it."))
+      (error "What?  Your news termcap/terminfo has no keycaps in it"))
 
   ;; Termcap or terminfo will set these
   ;; (define-key news-fkey-prefix "P" [f1])
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 50d17d6705b..fdb9e1916cf 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1,4 +1,4 @@
-;;; w32-win.el --- parse switches controlling interface with W32 window system.
+;;; w32-win.el --- parse switches controlling interface with W32 window system
 
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 05b5b7ba0fd..6f0f779df49 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -22,7 +22,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;;; Code:
+;;; Commentary:
+
+;;; Code:
 
 (define-key function-key-map "\e[A" [up])
 (define-key function-key-map "\e[B" [down])
@@ -45,3 +47,5 @@
 (define-key function-key-map "\e[23~" [f11])
 (define-key function-key-map "\e[24~" [f12])
 (define-key function-key-map "\e[29~" [print])
+
+;;; xterm.el ends here
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index d307ebe76ea..5b9e7a63553 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -5,7 +5,6 @@
 ;; Author: James Clark <jjc@jclark.com>
 ;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org>,
 ;;             F.Potorti@cnuce.cnr.it
-;; Maintainer: ???
 ;; Keywords: wp, hypermedia, comm, languages
 
 ;; This file is part of GNU Emacs.
@@ -363,7 +362,7 @@ varables of same name)."
 	(setq face (funcall skeleton-transformation face))
 	(setq facemenu-end-add-face (concat "</" face ">"))
 	(concat "<" face ">"))
-    (error "Face not configured for %s mode." mode-name)))
+    (error "Face not configured for %s mode" mode-name)))
 
 
 ;;;###autoload
@@ -1386,4 +1385,5 @@ Can be used as a value for `html-mode-hook'."
    \n))
 
 (provide 'sgml-mode)
+
 ;;; sgml-mode.el ends here