diff lisp/games/conx.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
line wrap: on
line diff
--- a/lisp/games/conx.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/games/conx.el	Mon Aug 13 09:02:59 2007 +0200
@@ -1,34 +1,11 @@
-;;; conx.el --- Yet another dissociater
-
-;; Copyright status unknown
-
-;; Author: Jamie Zawinski <jwz@netscape.com>
-;; Keywords: games
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Synched up with: Not in FSF
-
-;;; Commentary:
+;;; -*- Mode:Emacs-Lisp; Blat:Foop -*-
 
 ;;; conx.el: Yet Another Dissociator.
 ;;; Original design by Skef Wholey <skef@cs.cmu.edu>;
-;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@netscape.com>, 5-mar-91.
+;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@lucid.com>, 5-mar-91.
+;;;
+(defconst conx-version "1.6,  6-may-94.")
+;;;
 ;;; Run this compiled.  It will be an order of magnitude faster.
 ;;;
 ;;; Select a buffer with a lot of text in it.  Say M-x conx-buffer
@@ -69,9 +46,6 @@
 ;;;
 ;;;  o  It could stand to be faster...
 
-;;; Code:
-(defconst conx-version "1.6,  6-may-94.")
-
 (defvar conx-bounce 10) ; 1/x
 (defvar conx-hashtable-size 9923)  ; 9923 is prime
 (defconst conx-words-hashtable nil)
@@ -79,7 +53,7 @@
 (defconst conx-words-vector-fp 0)
 
 (defconst conx-last-word nil)
-p
+
 (defvar conx-files nil "FYI")
 
 (defun conx-init ()
@@ -803,4 +777,3 @@
 	    conx-words-hashtable)
   (sort-numeric-fields -1 (point-min) (point-max)))
 
-;;; conx.el ends here