Mercurial > hg > xemacs-beta
diff lisp/games/conx.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:56 +0200 |
parents | 376386a54a3c |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/games/conx.el Mon Aug 13 08:46:35 2007 +0200 +++ b/lisp/games/conx.el Mon Aug 13 08:46:56 2007 +0200 @@ -1,11 +1,34 @@ -;;; -*- Mode:Emacs-Lisp; Blat:Foop -*- +;;; 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: ;;; conx.el: Yet Another Dissociator. ;;; Original design by Skef Wholey <skef@cs.cmu.edu>; -;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@lucid.com>, 5-mar-91. -;;; -(defconst conx-version "1.6, 6-may-94.") -;;; +;;; ported to Emacs-Lisp by Jamie Zawinski <jwz@netscape.com>, 5-mar-91. ;;; 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 @@ -46,6 +69,9 @@ ;;; ;;; 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) @@ -53,7 +79,7 @@ (defconst conx-words-vector-fp 0) (defconst conx-last-word nil) - +p (defvar conx-files nil "FYI") (defun conx-init () @@ -777,3 +803,4 @@ conx-words-hashtable) (sort-numeric-fields -1 (point-min) (point-max))) +;;; conx.el ends here