From: Pavel Janík Date: Mon, 16 Jul 2001 09:10:19 +0000 (+0000) Subject: Some fixes to follow coding conventions. X-Git-Tag: emacs-pretest-21.0.105~500 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e44da43b16bf0fcf972f14ed43964c6ce9188e9;p=emacs.git Some fixes to follow coding conventions. --- 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 + + * 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 * 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 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 ;; 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:\\ (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))