Some fixes to follow coding conventions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66687189517cc77ad1913c689dbcff3b35b9d039..b52e57e8b8ef5cb70b596781cc9acc223413a699 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-07-16  Pavel Jan\e,Bm\e(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 291b981346a4cdf35b4e430525621c82781e8d10..75fdd4fcd153ba5709d486a1415d0bccbe981f42 100644 (file)
--- 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 f2ad26ba12379b6e4dd413f6c37ee8de0b05a91e..9a323c9b95c707e079e9374888fbba63b13149b8 100644 (file)
--- 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 b3f6d8e4c1e445a1e2f4d8c41967bea8e453b8f5..f4ef920a5ee976ee9b217d598d454d083693b464 100644 (file)
--- 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 4977ff8274fc2da72cf05b22211feeec9aeab80b..aab77fa2435e4dc63e99a060674f9f46102748a4 100644 (file)
--- 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 c2320a7b8c679a2ad3a9f13e2d2504439097c504..27f489613e89e6cfe8e09ad331fe7659d3cf657a 100644 (file)
--- 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 eb6231f0981b1978600c8de35b6f9e7fab8c42fd..5a7270a686dbab4b43ec73f0b7fb96446e717bc6 100644 (file)
--- 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 3b4734a641e0dbae83295fe28eed5a2cf4dbb6a3..469bd88d7965656092f68889c746ab8d7a029c60 100644 (file)
--- 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 02e01bc23b7db6b9e1008d1b79bbf88e921a1387..db868de63257dfa5412bd9c6dbb99b86e50d6529 100644 (file)
--- 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 c1715bf75d693d75d122b6e2f835bd2123ca37cc..703f989b3cc3cb0d79a4af60cab7ad6d521e02d1 100644 (file)
--- 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 df77827dac272fed105841cef7edd7933231b34c..d6ab90052c00bede3220b0cde44b650842eda097 100644 (file)
--- 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 fb3909385053cabe33322ae0797abb476628704a..f294676faf1d97032bb842b2b8206252073948da 100644 (file)
--- 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))