Commit 6e44da43 authored by Pavel Janík's avatar Pavel Janík
Browse files

Some fixes to follow coding conventions.

parent 6033fc96
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.
......
;;; 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
......
;;; 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)
......
;;; 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
;;; 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
;;; 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
......@@ -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)
......
......@@ -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-"
......
;;; 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.
......
......@@ -458,3 +458,5 @@ pong-mode keybindings:\\<pong-mode-map>
(provide 'pong)
;;; pong.el ends here
;;; 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))
......
;;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment