Some fixes to follow coding conventions.

12 files changed, 37 insertions, 16 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66687189517..b52e57e8b8e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-07-16  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* play/5x5.el, play/decipher.el, play/dunnet.el, play/fortune.el,
+	play/gamegrid.el, play/handwrite.el, play/landmark.el,
+	play/morse.el, play/pong.el, play/snake.el, play/tetris.el: Some
+	fixes to follow coding conventions.
+
 2001-07-16  Gerd Moellmann  <gerd@gnu.org>
 
 	* which-func.el (which-func-mode): Doc fix.
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 291b981346a..75fdd4fcd15 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,4 +1,4 @@
-;;; 5x5.el -- Simple little puzzle game.
+;;; 5x5.el --- simple little puzzle game
 
 ;; Copyright (C) 1999,2000 Free Software Foundation, Inc.
 
@@ -45,6 +45,8 @@
 ;; Pascal Q. Porcupine <joshagam@cs.nmsu.edu> for inspiring the animated
 ;; solver.
 
+;;; Code:
+
 ;; Things we need.
 
 (eval-when-compile
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index f2ad26ba123..9a323c9b95c 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -1,4 +1,4 @@
-;;; decipher.el --- Cryptanalyze monoalphabetic substitution ciphers
+;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
 ;;
 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
 ;;
@@ -687,7 +687,7 @@ ciphertext."
       (set-buffer (decipher-stats-buffer))
       (goto-char (point-min))
       (or (re-search-forward (format "^%c: " cipher-char) nil t)
-          (error "Character `%c' is not used in ciphertext." cipher-char))
+          (error "Character `%c' is not used in ciphertext" cipher-char))
       (forward-line -1)
       (setq start (point))
       (forward-line 3)
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index b3f6d8e4c1e..f4ef920a5ee 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -1,4 +1,4 @@
-;;; dunnet.el --- Text adventure for Emacs
+;;; dunnet.el --- text adventure for Emacs
 
 ;; Copyright (C) 1992, 1993, 2001 Free Software Foundation, Inc.
 
@@ -33,6 +33,8 @@
 ;;;  The log file should be set for your system, and it must
 ;;;  be writable by all.
 
+;;; Code:
+
 (defgroup dunnet nil
   "Text adventure for Emacs."
   :prefix "dun-"
@@ -2912,7 +2914,7 @@ drwxr-xr-x  3 root     staff          2048 Jan 1 1970 ..")
       (setq dun-badcd nil)
       (condition-case nil
 	  (setq path-elements (dun-get-path (car args) nil))
-	(error (dun-mprincl "Invalid path.")
+	(error (dun-mprincl "Invalid path")
 	       (setq dun-badcd t)))
       (dolist (pe path-elements)
 	      (unless dun-badcd
@@ -3367,5 +3369,4 @@ File not found")))
 
 (provide 'dunnet)
 
-;; dunnet.el ends here
-
+;;; dunnet.el ends here
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 4977ff8274f..aab77fa2435 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -1,10 +1,10 @@
-;;; fortune.el --- Use fortune to create signatures
+;;; fortune.el --- use fortune to create signatures
 ;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
 
 ;; Author: Holger Schauer <Holger.Schauer@gmx.de>
 ;; Keywords: games utils mail
 
-;; This file is part of 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
@@ -340,4 +340,3 @@ and choose the directory as the fortune-file."
 (provide 'fortune)
 
 ;;; fortune.el ends here
-
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index c2320a7b8c6..27f489613e8 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -1,4 +1,4 @@
-;;; gamegrid.el -- Library for implementing grid-based games on Emacs
+;;; gamegrid.el --- library for implementing grid-based games on Emacs
 
 ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc.
 
@@ -26,6 +26,8 @@
 
 ;;; Commentary:
 
+;;; Code:
+
 (eval-when-compile
   (require 'cl))
 
@@ -425,3 +427,5 @@ static char *noname[] = {
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (provide 'gamegrid)
+
+;;; gamegrid.el ends here
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index eb6231f0981..5a7270a686d 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -159,7 +159,7 @@ Variables: handwrite-linespace     (default 12)
     (setq next-line-add-newlines t)
     (switch-to-buffer ps-buf-name)
     (handwrite-insert-header buf-name)
-    (insert "\n(\\nCreated by Gnu Emacs' handwrite version "
+    (insert "\n(\\nCreated by GNU Emacs' handwrite version "
 	    emacs-version  "\\n\\n)=print flush\n")
     (handwrite-insert-preamble)
     (handwrite-insert-info)
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 3b4734a641e..469bd88d796 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -30,7 +30,7 @@
 ;; Boston, MA 02111-1307, USA.
 
 
-;;;_* Commentary
+;;; Commentary:
 ;;; Lm is a relatively non-participatory game in which a robot
 ;;; attempts to maneuver towards a tree at the center of the window
 ;;; based on unique olfactory cues from each of the 4 directions. If
@@ -62,6 +62,8 @@
 
 ;;;_* From Gomoku
 
+;;; Code:
+
 (defgroup lm nil
   "Neural-network robot that learns landmarks."
   :prefix "lm-"
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 02e01bc23b7..db868de6325 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,4 +1,4 @@
-;;; morse.el --- Convert text to morse code and back.
+;;; morse.el --- convert text to morse code and back
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index c1715bf75d6..703f989b3cc 100644
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -458,3 +458,5 @@ pong-mode keybindings:\\<pong-mode-map>
 
 
 (provide 'pong)
+
+;;; pong.el ends here
diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index df77827dac2..d6ab90052c0 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -1,4 +1,4 @@
-;;; snake.el -- Implementation of Snake for Emacs
+;;; snake.el --- implementation of Snake for Emacs
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -25,6 +25,8 @@
 
 ;;; Commentary:
 
+;;; Code:
+
 (eval-when-compile
   (require 'cl))
 
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index fb390938505..f294676faf1 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -1,4 +1,4 @@
-;;; tetris.el -- Implementation of Tetris for Emacs
+;;; tetris.el --- implementation of Tetris for Emacs
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -26,6 +26,8 @@
 
 ;;; Commentary:
 
+;;; Code:
+
 (eval-when-compile
   (require 'cl))