Mercurial > emacs
changeset 38425:c6e12c6b1498
Some fixes to follow coding conventions.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Mon, 16 Jul 2001 09:10:19 +0000 |
| parents | 43ed08d143a9 |
| children | 7c443908a552 |
| files | lisp/ChangeLog lisp/play/5x5.el lisp/play/decipher.el lisp/play/dunnet.el lisp/play/fortune.el lisp/play/gamegrid.el lisp/play/handwrite.el lisp/play/landmark.el lisp/play/morse.el lisp/play/pong.el lisp/play/snake.el lisp/play/tetris.el |
| diffstat | 12 files changed, 37 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/ChangeLog Mon Jul 16 09:10:19 2001 +0000 @@ -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.
--- a/lisp/play/5x5.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/5x5.el Mon Jul 16 09:10:19 2001 +0000 @@ -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
--- a/lisp/play/decipher.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/decipher.el Mon Jul 16 09:10:19 2001 +0000 @@ -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 @@ (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)
--- a/lisp/play/dunnet.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/dunnet.el Mon Jul 16 09:10:19 2001 +0000 @@ -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 @@ (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 @@ (provide 'dunnet) -;; dunnet.el ends here - +;;; dunnet.el ends here
--- a/lisp/play/fortune.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/fortune.el Mon Jul 16 09:10:19 2001 +0000 @@ -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 @@ (provide 'fortune) ;;; fortune.el ends here -
--- a/lisp/play/gamegrid.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/gamegrid.el Mon Jul 16 09:10:19 2001 +0000 @@ -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 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (provide 'gamegrid) + +;;; gamegrid.el ends here
--- a/lisp/play/handwrite.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/handwrite.el Mon Jul 16 09:10:19 2001 +0000 @@ -159,7 +159,7 @@ (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)
--- a/lisp/play/landmark.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/landmark.el Mon Jul 16 09:10:19 2001 +0000 @@ -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-"
--- a/lisp/play/morse.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/morse.el Mon Jul 16 09:10:19 2001 +0000 @@ -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.
--- a/lisp/play/pong.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/pong.el Mon Jul 16 09:10:19 2001 +0000 @@ -458,3 +458,5 @@ (provide 'pong) + +;;; pong.el ends here
--- a/lisp/play/snake.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/snake.el Mon Jul 16 09:10:19 2001 +0000 @@ -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))
--- a/lisp/play/tetris.el Mon Jul 16 09:03:47 2001 +0000 +++ b/lisp/play/tetris.el Mon Jul 16 09:10:19 2001 +0000 @@ -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))